view release on metacpan or  search on metacpan

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

use Test2::V0 -no_srand => 1;
use Config;

eval { require 'Test/More.pm' };

# This .t file is generated.
# make changes instead to dist.ini

my %modules;
my $post_diag;

$modules{$_} = $_ for qw(
  Class::Method::Modifiers
  Config::INI::Reader
  Data::Section
  Dist::Zilla
  Dist::Zilla::Plugin::ArchiveTar
  Dist::Zilla::Plugin::AutoMetaResources
  Dist::Zilla::Plugin::CopyFilesFromBuild
  Dist::Zilla::Plugin::Git
  Dist::Zilla::Plugin::InsertExample
  Dist::Zilla::Plugin::InstallGuide
  Dist::Zilla::Plugin::Libarchive
  Dist::Zilla::Plugin::MinimumPerl
  Dist::Zilla::Plugin::OurPkgVersion
  Dist::Zilla::Plugin::PkgVersion::Block
  Dist::Zilla::Plugin::PodWeaver
  Dist::Zilla::Plugin::ReadmeAnyFromPod
  Dist::Zilla::Plugin::Run::BeforeBuild
  Dist::Zilla::Role::Plugin
  Dist::Zilla::Role::PluginBundle::Easy
  Dist::Zilla::Role::TextTemplate
  Dist::Zilla::Util::AuthorDeps
  Dist::Zilla::Util::CurrentCmd
  ExtUtils::MakeMaker
  File::ShareDir::Dist
  File::ShareDir::Install
  File::Which
  File::chdir
  Git::Wrapper
  IPC::System::Simple
  Moose
  Path::Tiny
  Perl::PrereqScanner
  Perl::Tidy
  PerlX::Maybe
  PerlX::Maybe::XS
  Pod::Markdown
  Ref::Util
  Sub::Exporter::ForMethods
  Term::Encoding
  Test2::V0
  Test::Fixme
  Test::Pod
  Test::Pod::Coverage
  Test::Script
  Test::Version
  URI::Escape
  YAML
  namespace::autoclean
  stable
  true
);

$post_diag = sub {
  use Dist::Zilla::Plugin::Author::Plicease;
  diag 'share dir = ', Dist::Zilla::Plugin::Author::Plicease->dist_dir;
};

my @modules = sort keys %modules;

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;

  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;
}