1 package Wx::build::MakeMaker::Hacks;
7 @EXPORT_OK = qw(hijack);
10 my( $package, $method ) = @_;
13 return $package if defined &{"${package}::${method}"};
14 my @isa = @{$package . '::ISA'};
17 foreach my $i ( @isa ) {
18 my $p = &_find_name( $i, $method );
26 my( $obj, $method, $replace ) = @_;
27 my $spackage = ref( $obj ) || $obj;
28 my $rpackage = _find_name( $spackage, $method );
30 die "Can't hijack method '$method' from package '$spackage'",
33 my $fqn = "${rpackage}::$method";