Select Code to Download

#!/usr/bin/perl  
  
...
   my ( $self ) = @_;  
   return $self -> {state};  
}

# use_oo.pl
#!/usr/bin/perl  
...
print "Object is: ", $object_instance,"\n";  
$object_instance -> set_state ( "here is a new state" );  
print "Object state: ", $object_instance -> get_state(),"\n";

MyObject=HASH(x012345)

 
$object_instance -> set_state ( "here is a new state" );

MyObject::set_state ( $object_instance, "here is a new state" );