package Automobile; sub new : New; sub colour : Property; sub owner : Property { /^(?:Jack|Jill|Bob)$/ } package main; my $car = Automobile->new(colour => "red"); print $car->colour; # red $car->colour = "blue"; print $car->colour; # blue my $other_car = Automobile->new(owner => "Jack"); # works my $another_car = Automobile->new(owner => "Dad"); # fails
In reply to Re: Modules for autogenerating accessor/mutator methods
by wolv
in thread Modules for autogenerating accessor/mutator methods
by srdst13
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |