package main;
use Data::Dumper;
print Dumper \%INC;
####
9:27:50.65 C:\test\EVA>
test1
+++ I'm here! Exporter::VA import VERSION
module M1 loaded
+++ I'm here! M1 --verbose_import &foo bar baz quux bazola $ztesch --dump
(Exporter::VA) ===processing import parameter (&foo)===
Got It: *{"C1::foo"}= CODE(0x1cff884)
(Exporter::VA) ===processing import parameter (bar)===
(Exporter::VA) adding leading & to (bar) entry in export definition
Got It: *{"C1::bar"}= CODE(0x1cff950)
(Exporter::VA) ===processing import parameter (baz)===
(Exporter::VA) adding leading & to (baz) entry in export definition
Got It: *{"C1::baz"}= CODE(0x1cffa1c)
(Exporter::VA) ===processing import parameter (quux)===
(Exporter::VA) adding leading & to (quux) entry in export definition
Got It: *{"C1::quux"}= CODE(0x1cffae8)
(Exporter::VA) ===processing import parameter (bazola)===
(Exporter::VA) adding leading & to (bazola) entry in export definition
Got It: *{"C1::bazola"}= CODE(0x1cfe870)
(Exporter::VA) ===processing import parameter ($ztesch)===
Got It: *{"C1::ztesch"}= SCALAR(0x1cff818)
(Exporter::VA) ===processing import parameter (--dump)===
%EXPORT = bless( (
'&foo' => '&foo',
'.verbose_import' => '1',
'&baz' => '',
'--verbose_import' => sub { "DUMMY" },
'.&unknown_type' => sub { "DUMMY" },
'.&begin' => sub { "DUMMY" },
'$ztesch' => '',
'.&unknown_import' => sub { "DUMMY" },
'..worklist' => {
'C1::baz' => sub { "DUMMY" },
'C1::ztesch' => \undef,
'C1::foo' => sub { "DUMMY" },
'C1::bazola' => sub { "DUMMY" },
'C1::quux' => sub { "DUMMY" },
'C1::bar' => sub { "DUMMY" }
},
'&quux' => \$EXPORT{'..worklist'}{'C1::quux'},
'..home' => 'M1',
'--dump' => sub { "DUMMY" },
'.&end' => sub { "DUMMY" },
'.warnings' => 1,
'..client_default_version' => {
'C1' => '☺ '
},
'&bar' => 'internal_bar',
'&bazola' => sub { "DUMMY" },
'.check_user_option' => sub { "DUMMY" },
'.&unknown_feature' => sub { "DUMMY" }
), 'Exporter::VA' );
+++ I'm here! Exporter::VA :normal HASH(0x1f37bdc)
module M2 loaded
+++ I'm here! M2 foo baz $ztesch :tag1
called .&begin
called .&end
+++ I'm here! Exporter::VA :normal HASH(0x1f30744)
module M3 loaded
+++ I'm here! M2 foo baz --dump
called .&begin
%EXPORT = bless( (
':tag1' => [],
'&thud' => \sub { "DUMMY" },
'&foo' => '&foo',
'&baz' => '&baz',
'--verbose_import' => sub { "DUMMY" },
'.&unknown_type' => sub { "DUMMY" },
'.&begin' => sub { "DUMMY" },
'$ztesch' => '$ztesch',
'&grunt' => \${$EXPORT{'&thud'}},
'.&unknown_import' => sub { "DUMMY" },
'..worklist' => {
'C4::baz' => ${$EXPORT{'&thud'}},
'C4::foo' => sub { "DUMMY" }
},
'&quux' => '&quux',
'..home' => 'M2',
'--dump' => sub { "DUMMY" },
'.&end' => sub { "DUMMY" },
'.warnings' => 1,
'..client_default_version' => {
'C2' => '☺ ',
'C4' => '☻♥♦♣'
},
'.check_user_option' => sub { "DUMMY" },
'&bazola' => \${$EXPORT{'&thud'}},
'.&unknown_feature' => sub { "DUMMY" }
), 'Exporter::VA' );
called .&end
so what?
$VAR1 = {
'M3.pm' => 'M3.pm',
'Exporter.pm' => 'e:/Perl/lib/Exporter.pm',
'Carp.pm' => 'e:/Perl/lib/Carp.pm',
'XSLoader.pm' => 'e:/Perl/lib/XSLoader.pm',
'strict.pm' => 'e:/Perl/lib/strict.pm',
'vars.pm' => 'e:/Perl/lib/vars.pm',
'warnings/register.pm' => 'e:/Perl/lib/warnings/register.pm',
'warnings.pm' => 'e:/Perl/lib/warnings.pm',
'M1.pm' => 'M1.pm',
'overload.pm' => 'e:/Perl/lib/overload.pm',
'M2.pm' => 'M2.pm',
'Exporter/VA.pm' => 'Exporter/VA.pm',
'Data/Dumper.pm' => 'e:/Perl/lib/Data/Dumper.pm'
};
9:27:58.40 C:\test\EVA>
####
tree .
Directory PATH listing
Volume serial number is 0012FC94 8C87:E163
C:\TEST\EVA
└───Exporter
9:47:15.57 C:\test\EVA>
dir ./s
Volume in drive C has no label.
Volume Serial Number is 8C87-E163
Directory of C:\test\EVA
02/12/20 09:26a .
02/12/20 09:26a ..
02/12/19 08:04p 139 Dummy2.pm
02/12/19 08:05p 139 Dummy3.pm
02/12/20 09:27a Exporter
02/12/03 11:41p 990 M1.pm
02/12/06 12:12a 699 M2.pm
02/12/19 07:41p 377 M3.pm
02/12/19 08:07p 1,650 test1.pl
02/12/19 08:07p 213 test2.pl
10 File(s) 4,207 bytes
Directory of C:\test\EVA\Exporter
02/12/20 09:27a .
02/12/20 09:27a ..
02/12/19 07:56p 47,722 VA.pm
3 File(s) 47,722 bytes
Total Files Listed:
13 File(s) 51,929 bytes
182,636,544 bytes free
9:47:26.22 C:\test\EVA>