1 package DNS::Vi;

     1 package DNS::Vi;

     2 use 5.010;

     2 use 5.010;

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     5 use if $ENV{DEBUG}//''  eq 'dnsvi' => 'Smart::Comments';

     6 use if $ENV{DEBUG}//''  eq 'dnsvi' => 'Smart::Comments';

     6 use Digest::SHA qw(sha512_hex);

     7 use Digest::SHA qw(sha512_hex);

     7 use File::Temp;

     8 use File::Temp;

     8 

     9 

     9 use base 'Exporter';

    10 use base 'Exporter';