Method-Lexical
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Method/Lexical.pm view on Meta::CPAN
view all matches for this distribution
171172173174175176177178179180181182183184185186187188189190
}
}
# uninstall one or more lexical subs from the current scope
sub
unimport {
my
$class
=
shift
;
my
$hints
= my_hints;
my
$subclass
=
"$METHOD_LEXICAL($class)"
;
my
$class_data
;
return
unless
(($^H & 0x20000) && (
$class_data
=
$hints
->{
$subclass
}));
my
$caller
= ccstash();
my
@subs
=
@_
? (
map
{
scalar
(fqname(
$_
,
$caller
)) }
@_
) :
keys
(
%$class_data
);
my
$installed
=
$hints
->{
$METHOD_LEXICAL
};
my
$new_installed
= {
%$installed
};
# clone
my
$deleted
= 0;
for
my
$fqname
(
@subs
) {
my
$sub
=
$class_data
->{
$fqname
};
view release on metacpan - search on metacpan
( run in 0.464 second using v1.00-cache-2.02-grep-82fe00e-cpan-2ea8abbae53 )