Help for this page
sub param { my($self,@p) = self_or_default(@_); ... #~~~~~Snip~~~~~ return wantarray ? @{$self->{$name}} : $self->{$name}->[0]; }
sub param { my ( $self, $param, @p ) = @_; #~~~~~Snip~~~~~ return wantarray ? @{$self->{$param}} : $self->{$param}->[0]; }
www.com | www.net | www.org
No recent polls found