File Coverage

blib/lib/Tie/Counter.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod n/a
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Tie::Counter;
2              
3 1     1   627 use 5.006;
  1         3  
  1         40  
4              
5 1     1   5 use strict;
  1         2  
  1         29  
6 1     1   5 use warnings;
  1         4  
  1         33  
7 1     1   4 no warnings 'syntax';
  1         1  
  1         133  
8              
9             our $VERSION = '2009110701';
10              
11              
12             sub TIESCALAR {
13 2     2   40 my $class = shift;
14 2         3 my $value = shift; # ?? 0; # Would have been nice....
15 2 100       6 $value = 0 unless defined $value;
16 2         7 bless \$value => $class;
17             }
18              
19             sub FETCH {
20 6     6   32 ${+shift} ++;
  6         18  
21             }
22              
23             sub STORE {
24 1     1   9 my $self = shift;
25 1         3 my $value = shift;
26 1         3 $$self = $value;
27             }
28              
29              
30             "End of Tie::Counter";
31              
32             __END__