return stripspace <<' END_END';
s/^ //mg for values %fatpacked;
+ my $class = "${\\%fatpacked}";
+ *{"${class}::files"} = sub { keys %{$_[0]} };
if ($] < 5.008) {
- unshift @INC, sub {
+
+ *{"${class}::INC"} = sub {
if (my $fat = $fatpacked{$_[1]}) {
return sub {
return 0 unless length $fat;
else {
- my $class = "${\\%fatpacked}";
- unshift @INC, bless \%fatpacked, $class;
- *{"${class}::files"} = sub { keys %{$_[0]} };
*{"${class}::INC"} = sub {
if (my $fat = $_[0]{$_[1]}) {
open my $fh, '<', \$fat
}
+ unshift @INC, bless \%fatpacked, $class;
} # END OF FATPACK CODE
END_END
}
dolmen - Olivier Mengué (cpan:DOLMEN) <dolmen@cpan.org>
+djerius - Diab Jerius (cpan:DJERIUS) <djerius@cpan.org>
+
Many more people are probably owed thanks for ideas. Yet
another doc nit to fix.