Help for this page

Select Code to Download

Select or download this

my @extList;
push @extList, $_ for @ARGV;

Select or download this

use Getopt::long;
my @extList;
...
  ? map { split /,/ } @extList; # in case of --ext foo,bar
  : qw( pl pm );
$root ||= '.';