Help for this page

Select Code to Download


  1. or download this
    sub GetPaths  {
    use File::BOM;
...
    s/\s+$// for @paths; # "chomp"
    return @paths;
} ## end sub GetPaths
  2. or download this
    sub GetPaths  {
    my @paths = path( shift )->lines_utf8;
...
    s/\s+$// for @paths; # "chomp"
    return @paths;
} ## end sub GetPaths
  3. or download this
    use Carp::Always;
use Path::Tiny qw/ path /;
sub f{g(@_);}
...
    main::r(666) called at - line 4
    main::g(666) called at - line 3
    main::f(666) called at - line 6