| changeset 8 | 5923d15fd57b |
| parent 7 | 286a373ab86b |
| child 10 | efba68ef7f89 |
| 7:286a373ab86b | 8:5923d15fd57b |
|---|---|
1 use 5.010; |
1 use 5.010; |
2 use strict; |
2 use strict; |
3 use warnings; |
3 use warnings; |
4 use if $ENV{DEBUG}//'' eq 'vidns' => 'Smart::Comments'; |
4 use if $ENV{DEBUG}//'' eq 'dnsvi' => 'Smart::Comments'; |
5 use Digest::SHA qw(sha512_hex); |
5 use Digest::SHA qw(sha512_hex); |
6 |
6 |
7 use base 'Exporter'; |
7 use base 'Exporter'; |
8 |
8 |
9 our @EXPORT = qw(ttl2h h2ttl parse delta); |
9 our @EXPORT = qw(ttl2h h2ttl parse delta); |