diff options
Diffstat (limited to 'lib/User')
| -rw-r--r-- | lib/User/grent.pm | 10 | ||||
| -rw-r--r-- | lib/User/pwent.pm | 10 |
2 files changed, 12 insertions, 8 deletions
diff --git a/lib/User/grent.pm b/lib/User/grent.pm index 3c4635ba2a..deb0a8d1be 100644 --- a/lib/User/grent.pm +++ b/lib/User/grent.pm @@ -3,15 +3,17 @@ use strict; BEGIN { use Exporter (); - use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - @ISA = qw(Exporter); + use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS); @EXPORT = qw(getgrent getgrgid getgrnam getgr); @EXPORT_OK = qw($gr_name $gr_gid $gr_passwd $gr_mem @gr_members); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } use vars @EXPORT_OK; -use Class::Template qw(struct); +# Class::Struct forbids use of @ISA +sub import { goto &Exporter::import } + +use Class::Struct qw(struct); struct 'User::grent' => [ name => '$', passwd => '$', @@ -83,7 +85,7 @@ via the C<CORE::> pseudo-package. =head1 NOTE -While this class is currently implemented using the Class::Template +While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm index a027fe627b..183a641e9e 100644 --- a/lib/User/pwent.pm +++ b/lib/User/pwent.pm @@ -3,8 +3,7 @@ use strict; BEGIN { use Exporter (); - use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - @ISA = qw(Exporter); + use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS); @EXPORT = qw(getpwent getpwuid getpwnam getpw); @EXPORT_OK = qw( $pw_name $pw_passwd $pw_uid @@ -15,7 +14,10 @@ BEGIN { } use vars @EXPORT_OK; -use Class::Template qw(struct); +# Class::Struct forbids use of @ISA +sub import { goto &Exporter::import } + +use Class::Struct qw(struct); struct 'User::pwent' => [ name => '$', passwd => '$', @@ -93,7 +95,7 @@ via the C<CORE::> pseudo-package. =head1 NOTE -While this class is currently implemented using the Class::Template +While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this. =head1 AUTHOR |