my $name = shift;
my $pkg = @_ > 0 ? $_[0] : caller;
- my $fqn = "${pkg}::$name";
-
my $map = _map($pkg);
if (defined $map) {
my $name = shift;
my $pkg = @_ > 0 ? $_[0] : caller;
- my $fqn = "${pkg}::$name";
-
my $map = _map($pkg);
if (defined $map) {
$B_OP_inject{can} = sub {
my ($obj, $meth) = @_;
if ($meth eq 'first') {
- return undef unless defined _custom_name($obj);
+ return undef unless $obj->isa('B::UNOP') or defined _custom_name($obj);
}
$obj->SUPER::can($meth);
};
=head1 EXAMPLES
-See the F<t/Sub-Op-Test> directory that implements a complete example.
+See the F<t/Sub-Op-LexicalSub> directory that implements a complete example.
=head1 DEPENDENCIES