$person = { NAME => "Nat",
AGE => 27,
LOGIN => "gnat",
}; |
package Human; # tell $person where its code is bless $person, 'Human'; |
$person->smile(); # calls Human::smile($person) |
| Forward to Flexibility of the object system
Back to Cryptocontext Up to Stages of a Perl Programmer section index Up to YAPC 2000 course index |
YAPC 2000: Stages of a Perl Programmer - 29
Copyright © 2000, Nathan Torkington
|