package AddrMatch;
sub new {
    my %state = ( what => "ever" );
    my $amd = AddrMatch->xs_new(\%state);
    return $amd;
}
# then, later, recover the perl-ish state with
package AddrMatchPtr;
sub something {
    my $self = shift;
    my $state = $self->stash();
    my $what = $state->{what};
    $state{how} = "now";
}