Help for this page
sub foo { my ($self, $params) = __params({ -a => '...', }, \@_); ... if ($params->{a}) {
foreach my $key (keys %$result) { my $tkey = $key; $tkey =~ s/^-//; ... } return $result; }
www.com | www.net | www.org
No recent polls found