X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLinux%2FSysInfo.pm;h=9471da157403063ceb32bc29b40bf9c00972e67d;hb=27ba28e4fc567151a06264c50b443f1c12eb76f4;hp=1d5a48aaf5ceffc9a9d65ab88c175a958debf94b;hpb=ecf24bbfa76391c0731a62319bb54dcb2c4c7e1b;p=perl%2Fmodules%2FLinux-SysInfo.git diff --git a/lib/Linux/SysInfo.pm b/lib/Linux/SysInfo.pm index 1d5a48a..9471da1 100644 --- a/lib/Linux/SysInfo.pm +++ b/lib/Linux/SysInfo.pm @@ -22,7 +22,7 @@ BEGIN { =head1 SYNOPSIS - use Linux::SysInfo qw/sysinfo/; + use Linux::SysInfo qw; my $si = sysinfo; print "$_: $si->{$_}\n" for keys %$si; @@ -143,12 +143,12 @@ Functions are also exported by the C<:funcs> tag, and constants by C<:consts>. =cut -use base qw/Exporter/; +use base qw; our @EXPORT = (); our %EXPORT_TAGS = ( - 'funcs' => [ qw/sysinfo/ ], - 'consts' => [ qw/LS_HAS_EXTENDED/ ] + 'funcs' => [ qw ], + 'consts' => [ qw ] ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ]; @@ -197,7 +197,7 @@ Tests code coverage report is available at L