Select Code to Download

use YAPE::Regex;
my $p = YAPE::Regex->new(qr//);
$p->YAPE::Regex::Extensible::steal_pat;
...
    my $self = shift;
    $self->{'pat'} = peek_sub(\&YAPE::Regex::next)->{'%pat'};
}

use YAPE::Regex;
my $p = YAPE::Regex->new(qr//);
$p->YAPE::Regex::Extensible::steal_pat;
...
    $self->{'pat'} = {};
    lexalias(\&YAPE::Regex::next, '%pat', $self->{'pat'});
}

use YAPE::Regex;
my $p = YAPE::Regex->new(qr//);
$p->YAPE::Regex::Extensible::steal_pat;
...
    # Use Devel::Pointer to construct a reference to it.
    $self->{'pat'} = unsmash_hv( $$h );
}