view release on metacpan or  search on metacpan

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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];
}