misc/perlmodule_rm.pl

   1 #!/usr/bin/perl
   2
   3 # Remove a perl module
   4
   5 use Modern::Perl;
   6 use ExtUtils::Packlist;
   7 use ExtUtils::Installed;
   8
   9 $ARGV[0] or die "Usage: $0 Module::Name\n";
  10
  11 my $mod = $ARGV[0];
  12
  13 my $inst = ExtUtils::Installed->new();
  14
  15 foreach my $item (sort($inst->files($mod))) {
  16     print "removing $item\n";
  17     unlink $item;
  18 }
  19
  20 my $packfile = $inst->packlist($mod)->packlist_file();
  21 print "removing $packfile\n";
  22 unlink $packfile;