Select Code to Download

#!/usr/bin/env perl

...

print "$0 completed."
__END__

package A;

...
    A::B::sub_b();
    }
    1;

package A::B;

...
    };

    1;

package dbLoader;

...
    }; # END:

    1;

#!/usr/bin/env perl

...
A::sub_a();
A::B::sub_b();
exit;

#!/usr/bin/env perl

...
A::sub_a();
A::B::sub_b();
exit;

... at DBI:Pg:A.pm line 8.
        require A.pm called at WorksNot.plx line 6
...
Can't locate object method "b_b" via package "1" (perhaps you forgot t
+o load "1"?) at DBI:Pg:A.pm line 7.
Compilation failed in require at WorksNot.plx line 6.
BEGIN failed--compilation aborted at WorksNot.plx line 6.

            return (
                    $body_sref
                    );

            return (
                    $fh,
                   );

            return (
                    sub { #Carp::cluck 'In anonymous sub';
...
                            };
                        } # Anonymous sub:
                    );