Help for this page
package Colour; sub new {bless {colour => $_[1]}, $_[0]} ... package Age; sub new {bless {age => $_[1]}, $_[0]}} sub age {$_[0]{age}}
use Colour; use Age; ... my $a_obj = Age::->new(42); print "I have an object with colour ", $c_obj->colour; print "And another object aged ", $a_obj->age;
package Age_and_Colour; use Age; ... my ($class, $age, $colour) = @_: ... Now what? ... }
www.com | www.net | www.org
No recent polls found