diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-11 09:19:48 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-11 09:19:48 +0100 |
commit | e5037c26a5be7d04f43b100db5b6f215786f28ab (patch) | |
tree | 0d1c9d93cec6cc3572196581ab4e6175cd6ae08b /lib/Net/Cmd.pm | |
parent | 3ffe754d14d144594a9cbca35fd77b7f25a5a285 (diff) | |
download | perl-libnet-e5037c26a5be7d04f43b100db5b6f215786f28ab.tar.gz |
Add optional POD coverage testing
Diffstat (limited to 'lib/Net/Cmd.pm')
-rw-r--r-- | lib/Net/Cmd.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm index efa8c07..9bf9f4f 100644 --- a/lib/Net/Cmd.pm +++ b/lib/Net/Cmd.pm @@ -45,13 +45,12 @@ our $VERSION = "2.31"; our @ISA = qw(Exporter); our @EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING); - -sub CMD_INFO {1} -sub CMD_OK {2} -sub CMD_MORE {3} -sub CMD_REJECT {4} -sub CMD_ERROR {5} -sub CMD_PENDING {0} +use constant CMD_INFO => 1; +use constant CMD_OK => 2; +use constant CMD_MORE => 3; +use constant CMD_REJECT => 4; +use constant CMD_ERROR => 5; +use constant CMD_PENDING => 0; my %debug = (); |