}
sub _check_name {
- my $name = $_[0];
+ my ($name) = @_;
croak 'No subroutine specified' unless $name;
+
my $proto;
my $r = ref $name;
if (!$r) {
} else {
croak 'Unhandled ' . $r . ' reference as first argument';
}
+
$name =~ s/^\s+//;
$name =~ s/[\s\$\@\%\*\&;].*//;
+
return $name, $proto;
}