Writing Makefile for Exporter::VA cp VA.pm blib/lib/Exporter/VA.pm Manifying blib/man3/Exporter::VA.3 PERL_DL_NONLAZY=1 /home/cpanrun/ia64/build/5.8.2/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(0x4027877c) (Exporter::VA) ===processing import parameter (bar)=== (Exporter::VA) adding leading & to (bar) entry in export definition Got It: *{"C1::bar"}= CODE(0x402b306c) (Exporter::VA) ===processing import parameter (baz)=== (Exporter::VA) adding leading & to (baz) entry in export definition Got It: *{"C1::baz"}= CODE(0x402b4a90) (Exporter::VA) ===processing import parameter (quux)=== (Exporter::VA) adding leading & to (quux) entry in export definition Got It: *{"C1::quux"}= CODE(0x402b4c28) (Exporter::VA) ===processing import parameter (bazola)=== (Exporter::VA) adding leading & to (bazola) entry in export definition Got It: *{"C1::bazola"}= CODE(0x402b6034) (Exporter::VA) ===processing import parameter ($ztesch)=== Got It: *{"C1::ztesch"}= SCALAR(0x402786bc) (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(0x4006ba64) (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(0x4006ba64) (Exporter::VA) ===processing import parameter (bar)=== Got It: *{"C3::bar"}= CODE(0x402b6040) (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 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 23) line 2 ]] ok ok - calling { package C3; M3::foo (30) } => Called M3::old_foo (30). ok - calling { package C8; M3::foo (31) } => Called M3::new_foo (31). ok - calling { M2::thud (32) } => Called M2::baz (32). ok - calling { M2::grunt (33) } => Called M2::baz (33). ok ---------------------------------------- PASSED all tests. ok All tests successful. Files=1, Tests=37, 1 wallclock secs ( 0.18 cusr + 0.03 csys = 0.21 CPU) Installing /home/cpanrun/ia64/build/5.8.2/lib/site_perl/5.8.2/Exporter/VA.pm Installing /home/cpanrun/ia64/build/5.8.2/man/man3/Exporter::VA.3 Appending installation info to /home/cpanrun/ia64/build/5.8.2/lib/5.8.2/IA64.ARCHREV_0-thread-multi/perllocal.pod