App::Rad version 9 required--this is only version 1.04.
find me things in @INC:
Show quoted text
> perl -e '$_=shift;s{::}{/}g;s/$/.pm/;$mp=$_;print $mp,"\n", map "$_/$mp\n", grep -e
"$_/$mp", @INC' Catalyst::Devel
stuff it into an app rad:
Show quoted text> perl ~/.bin/f include -e '$_=shift;s{::}{/}g;s/$/.pm/;$mp=$_;print $mp,"\n", map
"$_/$mp\n", grep -e "$_/$mp", @INC' Catalyst::Devel
-e syntax OK
see what it looks like:
sub cmd1 {
my $c = shift;
$_ = shift @ARGV;
s[::][/]g;
s/local ($/).pm/; # <-- this
$mp = $_;
print $mp, "\n", map("$_/$mp\n", grep(-e("$_/$mp"), @INC));
}
deparse seems OK with it:
Show quoted text> perl -MO=Deparse -e '$_=shift;s{::}{/}g;s/$/.pm/;$mp=$_;print $mp,"\n", map
"$_/$mp\n", grep -e "$_/$mp", @INC' Catalyst::Devel
$_ = shift @ARGV;
s[::][/]g;
s/$/.pm/;
$mp = $_;
print $mp, "\n", map("$_/$mp\n", grep(-e("$_/$mp"), @INC));
-e syntax OK
Thanks for the sexy software!
=^_^=