BSON-XS

 view release on metacpan or  search on metacpan

t/lib/TestTie.pm  view on Meta::CPAN

package # hide from PAUSE
    TestTie::Scalar;

@ISA = qw(Tie::Scalar);

sub TIESCALAR {
    my $class = shift;
    my $instance = @_ ? shift : undef;
    return bless \$instance => $class;
}

sub FETCH {
    return ${$_[0]};
}

sub STORE {
    ${$_[0]} = $_[1];
}

sub DESTROY {
    undef ${$_[0]};
}

1;

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 1.095 second using v1.00-cache-1.14-grep-28634ff-cpan-ac32402124b )