update diagnostic and release tets

t/00_diag.t

@@ -1,5 +1,6 @@
 use strict;
 use warnings;
+use Config;
 use Test::More tests => 1;
 BEGIN {
   my @modules;
@@ -18,6 +19,13 @@ BEGIN {
   eval qq{ require $_ } for @modules;
 };
 
+sub spacer ()
+{
+  diag '';
+  diag '';
+  diag '';
+}
+
 pass 'okay';
 
 my @modules;
@@ -33,9 +41,30 @@ my $max = 1;
 $max = $_ > $max ? $_ : $max for map { length $_ } @modules;
 our $format = "%-${max}s %s"; 
 
-diag '';
-diag '';
-diag '';
+spacer;
+
+my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
+
+if(@keys > 0)
+{
+  diag "$_=$ENV{$_}" for @keys;
+  
+  if($ENV{PERL5LIB})
+  {
+    spacer;
+    diag "PERL5LIB path";
+    diag $_ for split $Config{path_sep}, $ENV{PERL5LIB};
+    
+  }
+  elsif($ENV{PERLLIB})
+  {
+    spacer;
+    diag "PERLLIB path";
+    diag $_ for split $Config{path_sep}, $ENV{PERLLIB};
+  }
+  
+  spacer;
+}
 
 diag sprintf $format, 'perl ', $^V;
 
@@ -56,6 +85,5 @@ foreach my $module (@modules)
   }
 }
 
-diag '';
-diag '';
-diag '';
+spacer;
+

t/00_diag.txt

@@ -10,7 +10,6 @@ Mojolicious::Lite
 POSIX
 Template
 Template::Provider
-Test::CPAN::Meta
 Test::Mojo
 Test::More
 lib