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

package YAPE::Regex::Extensible;
use base 'YAPE::Regex';
use Devel::LexAlias 'lexalias';

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