sub do_that { my $self = shift; my %args = ref($_[0]) ? %{$_[0]} : @_; $args{chew} ||= $self->{food} || 'meat'; return "I like $args{chew)!\n"; }
In reply to Re: Passing a list to an Object
by repson
in thread Passing a list to an Object
by lzcd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |