[Netpass-devel] NetPass/lib NetPass.pm,1.17,1.18
Brought to you by:
jeffmurphy
From: jeff m. <jef...@us...> - 2005-05-08 02:35:57
|
Update of /cvsroot/netpass/NetPass/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1361/lib Modified Files: NetPass.pm Log Message: more work on network cfg UI, removed some unused code Index: NetPass.pm =================================================================== RCS file: /cvsroot/netpass/NetPass/lib/NetPass.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- NetPass.pm 24 Apr 2005 03:42:02 -0000 1.17 +++ NetPass.pm 8 May 2005 02:35:45 -0000 1.18 @@ -41,22 +41,6 @@ $self->{'db'}->DESTROY() if defined($self->{'db'}); } -sub xx_AUTOLOAD { - no strict; - return if($AUTOLOAD =~ /::DESTROY$/); - if ($AUTOLOAD=~/(\w+)$/) { - my $field = $1; - *{$field} = sub { - my $self = shift; - @_ ? $self->{"_$field"} = shift - : $self->{"_$field"}; - }; - &$field(@_); - } else { - Carp::confess("Cannot figure out field name from '$AUTOLOAD'"); - } -} - =head2 new NetPass(-config =E<gt> file, -notReally =E<gt> [0|1], -quiet =E<gt> [0|1], -debug =E<gt> [0|1]) =over |