use YAPE::Regex;
my $p = YAPE::Regex->new(qr//);
$p->YAPE::Regex::Extensible::steal_pat;

package YAPE::Regex::Extensible;
use base 'YAPE::Regex';
use PadWalker 'peek_sub';
use Data::Dumper;

sub steal_pat {
    my $self = shift;
    $self->{'pat'} = peek_sub(\&YAPE::Regex::next)->{'%pat'};
}