equal
deleted
inserted
replaced
4 use warnings; |
4 use warnings; |
5 use if $ENV{DEBUG}//'' eq 'dnsvi' => 'Smart::Comments'; |
5 use if $ENV{DEBUG}//'' eq 'dnsvi' => 'Smart::Comments'; |
6 use Digest::SHA qw(sha512_hex); |
6 use Digest::SHA qw(sha512_hex); |
7 use File::Temp; |
7 use File::Temp; |
8 use base 'Exporter'; |
8 use base 'Exporter'; |
9 |
9 no if $^V ge v5.16.0 => (warnings => 'experimental'); |
10 # we need to survive the newer perls |
10 #no if $warnings::Offset{'experimental'} => (warnings => 'experimental'); |
11 BEGIN { warnings::unimport('experimental'); } |
|
12 |
11 |
13 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show); |
12 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show); |
14 our @EXPORT_OK = (); |
13 our @EXPORT_OK = (); |
15 |
14 |
16 sub parse { |
15 sub parse { |
17 my %arg = %{pop @_} if ref $_[-1] eq 'HASH'; |
16 my %arg = %{pop @_} if ref $_[-1] eq 'HASH'; |
18 my $data = shift; |
17 my $data = shift; |
19 my @lines = split /\n/, $data; |
18 my @lines = split /\n/, $data; |
20 |
|
21 my $x; |
|
22 say $x; |
|
23 |
19 |
24 my @zone; |
20 my @zone; |
25 my ($origin, $ttl, $last_label, $soa_seen); |
21 my ($origin, $ttl, $last_label, $soa_seen); |
26 |
22 |
27 foreach (@lines) { |
23 foreach (@lines) { |