package Local::Foo;
use strict;
use warnings;
sub foo_func {
print("This is the Foo module\n");
}
1;
####
package Local::Exception;
use strict;
use warnings FATAL => 'all';
use Exporter 'import';
our @EXPORT = qw(throw_local);
use Exception::Class
#(
# 'Local::Exception' =>
# {
# description => 'My local exception',
# alias => 'throw_local'
# }
#)
;
1;
##
##
use strict;
use warnings;
use Local::Exception;
BEGIN{
use Data::Dumper; print("\n>>>\n", Dumper(\@INC), "\n<<<\n");
}
use Local::Foo;
Local::Foo::foo_func();
##
##
$VAR1 = [
bless( {
'Local/Exception.pm' => '#line 8 "main.fatpack.pl"
package Local::Exception;use strict;use warnings FATAL=>\'all\';use Exporter \'import\';our@EXPORT=qw(throw_local);use Exception::Class ;1;
',
'Local/Foo.pm' => '#line 12 "main.fatpack.pl"
package Local::Foo;use strict;use warnings;sub foo_func {print("This is the Foo module\\n")}1;
'
}, 'FatPacked::41105272' ),
'.\\local',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/site/lib',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/vendor/lib',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/lib'
];
<<<
This is the Foo module
##
##
package Local::Exception;
use strict;
use warnings FATAL => 'all';
use Exporter 'import';
our @EXPORT = qw(throw_local);
use Exception::Class
(
'Local::Exception' =>
{
description => 'My local exception',
alias => 'throw_local'
}
)
;
1;
##
##
>>>
$VAR1 = [
'C:/Strawberry-perl-5.26.3.1-64bit/perl/vendor/lib/Exception/Class.pm',
'.\\local',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/site/lib',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/vendor/lib',
'C:/Strawberry-perl-5.26.3.1-64bit/perl/lib'
];
<<<
Can't locate Local/Foo.pm in @INC (you may need to install the Local::Foo module) (@INC contains: C:/Strawberry-perl-5.26.3.1-64bit/perl/vendor/lib/Exception/Class.pm .\local C:/Strawberry-perl-5.26.3.1-64bit/perl/site/lib C:/Strawberry-perl-5.26.3.1-64bit/perl/vendor/lib C:/Strawberry-perl-5.26.3.1-64bit/perl/lib) at main.fatpack.pl line 59.
BEGIN failed--compilation aborted at main.fatpack.pl line 59.