view release on metacpan or  search on metacpan

lib/App/SimpleScan/Plugin/Forget.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
package App::SimpleScan::Plugin::Forget;
 
our $VERSION = '1.02';
 
use warnings;
use strict;
use Carp;
 
sub pragmas {
  no strict 'refs';
  *{ caller() . '::_forget' } = \&_do_forget;
  return [ 'forget', \&_do_forget ];
}
 
sub _do_forget {
  my ( $self, $rest ) = @_;
  my @names = split( /\s+/, $rest );
  local $_;
  $self->_delete_substitution($_) for @names;
}