view release on metacpan or  search on metacpan

lib/Test/DiagINC.pm  view on Meta::CPAN

# ABSTRACT: List modules and versions loaded if tests fail

our $VERSION = '0.010';

# If the tested module did not load strict/warnings we do not want
# to load them either. On the other hand we would like to know our
# code is at least somewhat ok. Therefore this madness ;)
BEGIN {
    if ( $ENV{RELEASE_TESTING} ) {
        require warnings && warnings->import;
        require strict   && strict->import;
    }
}

sub _max_length {
    my $max = 0;
    do { $max = length if length > $max }
      for @_;
    return $max;
}

t/leanload.t  view on Meta::CPAN

    if ( keys %INC ) {
        print "1..0 # SKIP Your %INC is already populated, perhaps PERL5OPTS is set?\n";
        exit 0;
    }
}

# madness explanation at the top of Test::DiagInc
BEGIN {
    if ( $ENV{RELEASE_TESTING} ) {
        require warnings && warnings->import;
        require strict   && strict->import;
    }

    @::initial_INC = keys %INC;

    unless ( $] < 5.008 ) {
        @::B_inc = split /\0/, `$^X t/lib/B_laced_INC_dump.pl`;
    }
}

my $nongreat_success;