NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
--Larry Wall in <199911192358.PAA24109@kiev.wall.org>
Did I say I expect Perl to do the right thing? :-)
--Larry Wall in <199911200217.SAA24898@kiev.wall.org>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
moose? (Score:1)
package My::Map;
#stuff
package My::City;use Moose;
has [qw{longitude latitude}] => (
is => 'rw',
#could make your own type, though for consistency
isa => 'Num',
);
has name => (
is => 'rw',
isa => 'Str',
);
has map => (
is => 'rw',
isa => 'My::Map',
default => sub {
use My::Map;
My::Map->new;
},
);
#needless, but here for consistency
sub setMap { shift->map(@_) };
sub routeTo {
my ($self, $targetCity) = @_;
#stuff
}
So the code is not that much different, Though you gain one big plus, type checking for setMap.
benh~
Reply to This