view release on metacpan or  search on metacpan

t/00_diag.t  view on Meta::CPAN

my @modules;
do {
  my $fh;
  open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.txt'));
  @modules = <$fh>;
  close $fh;
  chomp @modules;
};

my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s"; 

spacer;

my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;

if(@keys > 0)
{
  diag "$_=$ENV{$_}" for @keys;