diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-04 09:36:47 +0100 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-06-04 09:36:47 +0100 |
| commit | d282356dcbd6d6033c3faa48338e09621a169a5d (patch) | |
| tree | 8943c519ba8d96f6310b7f3ace82edf3dee71988 /lib/Net/Cmd.pm | |
| parent | ffe94b38e1c9e3ec98aff466d9f8c03d9b4dbf04 (diff) | |
| download | perl-libnet-d282356dcbd6d6033c3faa48338e09621a169a5d.tar.gz | |
Use 5.008001, strict and warnings throughout
Diffstat (limited to 'lib/Net/Cmd.pm')
| -rw-r--r-- | lib/Net/Cmd.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm index 06191d7..48aea55 100644 --- a/lib/Net/Cmd.pm +++ b/lib/Net/Cmd.pm @@ -7,11 +7,12 @@ package Net::Cmd; use 5.008001; -require Exporter; use strict; -use vars qw(@ISA @EXPORT $VERSION); +use warnings; + use Carp; +use Exporter; use Symbol 'gensym'; BEGIN { @@ -37,9 +38,9 @@ BEGIN { } } -$VERSION = "2.31"; -@ISA = qw(Exporter); -@EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING); +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} |