Writing Makefile for Exporter::VA cp VA.pm blib/lib/Exporter/VA.pm Manifying blib/man3/Exporter::VA.3 PERL_DL_NONLAZY=1 /Users/cpanrun/build/5.10.0/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/test....(Exporter::VA) ===processing import parameter (&foo)=== Got It: *{"C1::foo"}= CODE(0x1864e90) (Exporter::VA) ===processing import parameter (bar)=== (Exporter::VA) adding leading & to (bar) entry in export definition Got It: *{"C1::bar"}= CODE(0x1864cb0) (Exporter::VA) ===processing import parameter (baz)=== (Exporter::VA) adding leading & to (baz) entry in export definition Got It: *{"C1::baz"}= CODE(0x1864ad0) (Exporter::VA) ===processing import parameter (quux)=== (Exporter::VA) adding leading & to (quux) entry in export definition Got It: *{"C1::quux"}= CODE(0x18648f0) (Exporter::VA) ===processing import parameter (bazola)=== (Exporter::VA) adding leading & to (bazola) entry in export definition Got It: *{"C1::bazola"}= CODE(0x1863290) (Exporter::VA) ===processing import parameter ($ztesch)=== Got It: *{"C1::ztesch"}= SCALAR(0x1864f70) (Exporter::VA) ===processing import parameter (--dump)=== %EXPORT = bless( ( '&bazola' => sub { "DUMMY" }, '.&end' => sub { "DUMMY" }, '$ztesch' => '', '&quux' => \sub { "DUMMY" }, '&foo' => '&foo', '..client_default_version' => { 'C1' => '' }, '.default_VERSION' => '', '.&begin' => sub { "DUMMY" }, '.warnings' => 1, '&bar' => 'internal_bar', '.verbose_import' => 1, '.&unknown_import' => sub { "DUMMY" }, '.check_user_option' => sub { "DUMMY" }, '&baz' => '', '--verbose_import' => sub { "DUMMY" }, '..max_VERSION' => '', '..worklist' => { 'C1::ztesch' => \undef, 'C1::foo' => sub { "DUMMY" }, 'C1::quux' => ${$EXPORT{'&quux'}}, 'C1::baz' => sub { "DUMMY" }, 'C1::bazola' => sub { "DUMMY" }, 'C1::bar' => sub { "DUMMY" } }, '--dump' => sub { "DUMMY" }, '.&unknown_feature' => sub { "DUMMY" }, '.&unknown_type' => sub { "DUMMY" }, '..home' => 'M1' ), 'Exporter::VA' ); (Exporter::VA) ===processing import parameter (foo)=== (Exporter::VA) adding leading & to (foo) entry in export definition (Exporter::VA) wanted &foo version v1.3, choose v1.0 Got It: *{"C3::foo"}= CODE(0x18841c0) (Exporter::VA) ===processing import parameter (:blarg)=== (Exporter::VA) wanted :blarg version v1.3, choose v1.0 (Exporter::VA) ===processing import parameter (foo)=== (Exporter::VA) wanted &foo version v1.3, choose v1.0 Got It: *{"C3::foo"}= CODE(0x18841c0) (Exporter::VA) ===processing import parameter (bar)=== Got It: *{"C3::bar"}= CODE(0x1879c50) (Exporter::VA) warning: importing tag ":_new_blarg" which begins with an underscore at t/test.t line 163 (Exporter::VA) warning: importing symbol "&_bar" which begins with an underscore at t/test.t line 163 (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at /Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Exporter-VA/blib/lib/Exporter/VA.pm line 558. ) at (eval 25) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at /Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Exporter-VA/blib/lib/Exporter/VA.pm line 558. ) at (eval 26) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at /Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Exporter-VA/blib/lib/Exporter/VA.pm line 558. ) at (eval 27) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. (Exporter::VA) Cannot redirect to versioned function (Can't goto subroutine from an eval-block at /Users/cpanrun/depot/main/contrib-patched/perl/CPAN/src/Exporter-VA/blib/lib/Exporter/VA.pm line 558. ) at (eval 28) line 1 Use of uninitialized value $result in string eq at t/test.t line 34. Use of uninitialized value $result in concatenation (.) or string at t/test.t line 38. 1..37 module M1 loaded module M2 loaded called .&begin called .&end module M3 loaded called .&begin called .&end called .&begin called .&end This should generate two warnings about importing things beginning with underscores: The two warnings should be before this line. No longer expecting any warnings. ok - calling { C1::foo (5) } => Called M1::foo (5). ok - calling { C1::bar (6) } => Called M1::internal_bar (6). ok - calling { C1::baz (7) } => Called M1::baz (7). ok - calling { C1::quux (8) } => Called M1::quux (8). ok - calling { C1::bazola (9) } => Called dynamically-generated M1::&bazola asked for by C1, with parameters (9). ok - calling { $C1::ztesch=10; ++$M1::ztesch; $C1::ztesch == 11 } => 1 ok - calling { C2::foo (12) } => Called M2::foo (12). ok - calling { C2::baz (13) } => Called M2::baz (13). ok - calling { $C2::ztesch=14; ++$M2::ztesch; $C2::ztesch == 15 } => 1 ok - calling { C2::quux (16) } => Called M2::quux (16). ok - calling { C2::bazola (17) } => Called M2::baz (17). ok - calling { C2::thud (18) } => Called M2::baz (18). ok - calling { C2::grunt (19) } => Called M2::baz (19). ok - calling { C3::foo (20) } => Called M3::old_foo (20). ok - calling { C3::bar (22) } => Called M3::bar (22). ok - calling { C4::foo (21) } => Called M3::new_foo (21). ok - calling { C5::foo (23) } => Called M3::middle_foo (23). ok - calling { C6::foo (24) } => Called M2::foo (24). ok - calling { C6::thud (25) } => Called M2::baz (25). ok - calling { C7::foo (26) } => Called M2::foo (26). ok - calling { C7::baz (27) } => Called M2::baz (27). ok - calling { $C7::output } => -pra#ma! ok - normalizing 1.2.3 => 1.2.3 ok - normalizing => 0 ok - normalizing 3.2.1.0 => 3.2.1 ok - normalizing 1.0.0.0 => 1.0 ok - normalizing 50.46.51 => 2.3 ok - normalizing 50.46.51.46.52 => 2.3.4 ok ok ok - checked allowed versions. As expected, [[ (Exporter::VA) you asked for v1.1, but the only allowed versions are v1.0, v1.2 at (eval 24) line 2 ]] ok not ok - calling { package C3; M3::foo (30) }, returns "", expected "Called M3::old_foo (30)." not ok - calling { package C8; M3::foo (31) }, returns "", expected "Called M3::new_foo (31)." not ok - calling { M2::thud (32) }, returns "", expected "Called M2::baz (32)." not ok - calling { M2::grunt (33) }, returns "", expected "Called M2::baz (33)." ok ---------------------------------------- * FAILED 4 tests!! dubious Test returned status 5 (wstat 1280, 0x500) DIED. FAILED tests 33-36 Failed 4/37 tests, 89.19% okay Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/test.t 5 1280 37 4 33-36 Failed 1/1 test scripts. 4/37 subtests failed. Files=1, Tests=37, 0 wallclock secs ( 0.13 cusr + 0.03 csys = 0.16 CPU) Failed 1/1 test programs. 4/37 subtests failed. make: *** [test_dynamic] Error 5