"Morse, Richard E.,MGH" <[email protected]> writes:
>
> Thanks, except I'm not in an object context.
Sorry, I should read more carefully.
Well, what about if the base module's functions take the reference to
the map as an argument and your "symbol table munging" instead of
assigning the functions directly assigns forwarding functions that pass
along the map, something like this, uh, roughly...
package PKG::fr;
our %map;
BEGIN {
foreach my $sym ( _fns_not_overridden() ) {
# um, consider this pseudocode, not sure of the syntax.
*$sym{CODE} = sub { PKG::_base::$sym(\%map, @_) }
}
}
--
Mike Small
[email protected]
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
