<div>Does the "print" statement inside the AUTOLOAD function print somewhere else? Even though the following AUTOLOAD function is being called, I am not seeing the output of "print" statement on stdout!</div> <div> </div> <div>Thanks for your help.</div> <div> </div> <div>-------------</div> <div> </div> <div>sub AUTOLOAD<BR>{<BR> print "in AUTOLOAD $/";<BR> no strict "refs";<BR> my ($self, $newval) = @_;</div> <div> # Was it a get_... method?<BR> print "\$AUTOLOAD=$AUTOLOAD $/";<BR> if ($AUTOLOAD =~ /.*::get(_\w+)/ && $self->_accessible($1,'read'))<BR> {<BR> my $attr_name = $1;<BR> *{$AUTOLOAD} = sub { return $_[0]->{$attr_name} };<BR> return $self->{$attr_name}<BR> }</div> <div> # Was it a set_... method? <BR> if ($AUTOLOAD =~ /.*::set(_\w+)/ && $self->_accessible($1,'write'))<BR> {<BR> my $attr_name =
$1;<BR> *{$AUTOLOAD} = sub { $_[0]->{$attr_name} = $_[1] };<BR> $self->{$1} = $newval;<BR> return<BR> }<BR> <BR> # Must have been a mistake then...<BR> croak "No such method: $AUTOLOAD";<BR>}</div> <div> </div> <div>--------------</div><p>
<hr size=1>New Yahoo! Messenger with Voice. <a href="http://us.rd.yahoo.com/mail_us/taglines/postman5/*http://us.rd.yahoo.com/evt=39666/*http://messenger.yahoo.com">Call regular phones from your PC</a> and save big.