1 package DNS::Vi;

     1 package DNS::Vi;

     3 use strict;

     3 use strict;

     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 Term::ReadKey;

     8 use Term::ReadKey;

     9 use base 'Exporter';

     9 use base 'Exporter';

    11 

    12 

    12 #no if $warnings::Offset{'experimental'} => (warnings => 'experimental');

    13 #no if $warnings::Offset{'experimental'} => (warnings => 'experimental');

    13 

    14 

    14 our @EXPORT    = qw(ttl2h h2ttl parse delta nice edit update show get_key);

    15 our @EXPORT    = qw(ttl2h h2ttl parse delta nice edit update show get_key);

    15 our @EXPORT_OK = ();

    16 our @EXPORT_OK = ();