Jacob Chapa wrote:
what does bless do?
=cut
$object = {}; # hash reference
# bless $object into Data::Encoder class bless($object, "Data::Encoder");
bless($object); # bless $object into current package
$obj = [3,5]; print ref($obj), " ", $obj->[1], "\n"; bless($obj, "Human::Cannibal"); print ref($obj), " ", $obj->[1], "\n";
__END__
Get the Perl Cookbook. -Sx-
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
