view release on metacpan or  search on metacpan

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

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;
}