bindings/perl/uninstall_mod.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use ExtUtils::Installed;
   5
   6 my $mod = $ARGV[0] || die "Usage : $0 Module\n";
   7 my $inst = ExtUtils::Installed->new();
   8 unlink $inst->files($mod), $inst->packlist($mod)->packlist_file();