>>>>> "Lawrence" == Lawrence Statton <[EMAIL PROTECTED]> writes:
Lawrence> my $class = ref($ref) || $ref; You say "good class design", but then you do this. Shame on you. See the last few paragraphs of <http://www.stonehenge.com/merlyn/UnixReview/col52.html> of why this is a REALLY REALLY bad idea. Lawrence> my $car = new Automobile ( make => 'Ford', Lawrence> model => 'Escort', Lawrence> year => 1984 ); Shame on you again, for using indirect object notation! Lawrence> sub mature { Lawrence> my $fruit = shift; Lawrence> my $days = shift || 1; Lawrence> # make the fruit one unit older Lawrence> $fruit->age ( $fruit->age() + $days ) ; Lawrence> return $fruit; Lawrence> } Lawrence> There is a lot of code here - and it's got it's pod documentation with Lawrence> it. Only a minor typo there. "... it's got its pod ...". Second form is a possessive, not a contraction. -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
