Here is what I am doing
use A;
my $this = {};
bless $this;
my $result = $this->A::sub1 (my $args);
Package A;
sub1 {
my $this = shift
my ($data) = @_;
my $result = $this->sub2($data); #### $this->sub2($data) does not load
return "$result";
}
sub2 {
...
}
I think I can understand why sub2 cannot load when sub1 does
$this->sub2($data). I am unable to change package A. How to fix?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
