view release on metacpan or  search on metacpan

lib/MakeWithPerl.pm  view on Meta::CPAN

unless($file)                                                                   # Confirm we have a file
 {confess "Use %f to specify the file to process";
 }

if (! -e $file)                                                                 # No such file
 {confess "No such file:\n$file"
 }

if ($search)                                                                    # Upload files to GitHub or run some other action defined in the containing folder hierarchy unless search is forbidden
 {my @d = split m{/}, $file;                                                    # Split file name
  pop @d;
  while(@d)                                                                     # Look for a folder that contains a push command
   {for my $n(qw(pushToGitHub upload package))
     {my $u = "/".fpe(@d, $n, q(pl));
      if (-e $u)
       {say STDERR $u;
        qx(perl $u);
        exit;
       }
     }