view release on metacpan or  search on metacpan

lib/Method/Lexical.pm  view on Meta::CPAN

171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
    }
}
 
# 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};