File Coverage

blib/lib/Tie/PerFH.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 6 6 100.0


line stmt bran cond sub pod time code
1             package Tie::PerFH;
2              
3             $VERSION = '1.00';
4              
5             my %value;
6              
7 1     1   55 sub TIESCALAR { bless \my $x, shift }
8 2     2   27 sub FETCH { $value{select()}{$_[0]} }
9 2     2   31 sub STORE { $value{select()}{$_[0]} = $_[1] }
10              
11              
12             1;
13              
14             __END__