Select Code to Download

#a.pl
use bspace;
...
sub cgo { bhelp(); }
sub chelp { print "chelp\n"; }
1;

a.pl line 1 compiled: "use bspace"
bspace line 1 compiled: package bspace;
...
cspace::chelp prints "chelp\n"
a.pl line 4 executed: cgo() (imported from cspace)
cspace::cgo calls bhelp() which was not imported from bspace and so do
+esn't exist.

package bspace;
use strict;
...
    our @ISA = 'Exporter';
    our @EXPORT = qw(bgo bhelp);
}

# A.pm
package A;
...
package A::B;
use A;
sub bar { foo() } # without the BEGIN block above, the use A won't hav
+e imported foo into A::B