view release on metacpan or  search on metacpan

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

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
sub spacer ()
{
  diag '';
  diag '';
  diag '';
}
 
pass 'okay';
 
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;