view release on metacpan or  search on metacpan

lib/sanity.pm  view on Meta::CPAN

      ### TODO: should try to resolve back to the closest alias ###
      exit;
   }
   if ($print_flags) {
      print join("\n", @args)."\n";
      exit;
   }

   # Look for every indicator that proves that the user is in the distro directory
   # and appears to be one of the coders
   my $author_mode = !!((caller)[1] =~ /^(?:x?t|b?lib)[\/\\]/ && (-d '.git' or -d '.svn'));
   $author_mode = 0 if (grep {
      $ENV{"PERL5_${_}_IS_RUNNING"} || $ENV{"PERL5_${_}_IS_RUNNING_IN_RECURSION"}
   } (qw/CPANM CPANP CPANPLUS CPAN/) );

   # Process order:
   #    v5.##.##
   #    utf8
   #    mro
   #    strict
   #    warnings