exodist

    eval <<"    EOT" || die $@;
# If the caller has redefine warnings enabled then we want to warn them if
# their import redefines things.
BEGIN { \${^WARNING_BITS} = \$caller->[9] if defined \$caller->[9] };
#line $caller->[2] "$caller->[1]"
(*{"$into\\::\$_"} = \$final{\$_}, push \@{\$Importer::IMPORTED{\$into}} => \$_) for keys %final;
1;
    EOT

exodist

Test::Exception
Test::SharedFork
Test::Most
Test::Class
Test::Trap
Test::BDD::Cucumber
Test::Base
Test::Bomb
Test::Class::Moose
Test::Classy

exodist

use strict;
use warnings;

my %stuff = ( 
    a => 1,
    b => 2,
    c => 3,
);

while (my ($k, $v) = each %stuff) {

exodist

[Mon Feb  8 09:06:55 2016] starman: Bareword found where operator expected at (eval 457) line 1, near "37b3362::lib::5"
[Mon Feb  8 09:06:55 2016] starman:     (Missing operator before b3362::lib::5?)
[Mon Feb  8 09:06:55 2016] starman: Bareword found where operator expected at (eval 457) line 1, near "20.3::Net::libnet"
[Mon Feb  8 09:06:55 2016] starman:     (Missing operator before ::Net::libnet?)
[Mon Feb  8 09:06:55 2016] starman: Use of uninitialized value $module in pattern match (m//) at /opt/ndn-perl/2015.12.15.081116-37b3362/lib/site_perl/5.20.3/UNIVERSAL/require.pm line 84.
[Mon Feb  8 09:06:55 2016] starman: Use of uninitialized value $module in concatenation (.) or string at /opt/ndn-perl/2015.12.15.081116-37b3362/lib/site_perl/5.20.3/UNIVERSAL/require.pm line 84.

exodist

commit 2572a88967feec18b0821c36fcf89813c01cf742
Author: Chad Granum <[email protected]>
Date:   Tue Jul 15 23:10:37 2014 -0700

    Fix ok() that should be a like()

diff --git a/dist/autouse/t/autouse.t b/dist/autouse/t/autouse.t
index 0c8ad20..74cad59 100644
--- a/dist/autouse/t/autouse.t
+++ b/dist/autouse/t/autouse.t

exodist

use strict;
use warnings;

my ($line1, $line2, $line3);

sub foo {
    (undef, undef, $line1) = caller(0);
}

$line2 = __LINE__ + 1;

exodist

use strict;
use warnings;

use Test2::IPC;
use Test::More;

for (1 .. 2) {
    Test2::API::run_subtest(foo => sub {
        my $pid = fork();

exodist

my $tmpdir = File::Temp::tempdir('foo-XXXXXX', CLEANUP => 0, TMPDIR => 1);

Error in tempdir() using /tmp/foo-XXXXXX: Could not create directory /tmp/foo-xOzGma: File exists at

exodist

exodist@abydos $ perlbrew list                                                                                                                                           [~]
  5.8.1_no_thr
  5.8.1_thr
  5.8.8_no_thr
  5.8.8_thr
  5.10.0_no_thr
  5.10.0_thr
  5.12.0_no_thr
  5.12.0_thr
  5.14.0_no_thr

exodist

use B;
END { print "a\n"; }
my $endav;
BEGIN { $endav = B::end_av->object_2svref; }

{
    package RetieEndav;
    sub DESTROY { tie @$endav, "TiedEndav" }
}