File Coverage

blib/lib/Tie/FlipFlop.pm
Criterion Covered Total %
statement 17 21 80.9
branch 1 2 50.0
condition n/a
subroutine 6 7 85.7
pod n/a
total 24 30 80.0


line stmt bran cond sub pod time code
1             package Tie::FlipFlop;
2              
3 1     1   790 use 5.006;
  1         4  
  1         41  
4              
5 1     1   6 use strict;
  1         1  
  1         40  
6 1     1   54 use warnings;
  1         6  
  1         37  
7 1     1   5 no warnings 'syntax';
  1         2  
  1         293  
8              
9              
10             our $VERSION = '2009110701';
11              
12              
13             sub TIESCALAR {
14 1     1   444 my $class = shift;
15 1 50       4 do {require Carp;
  0         0  
16 0         0 Carp::croak ("Incorrect number of arguments");
17             } unless 2 == @_;
18 1         5 bless [reverse @_] => $class;
19             }
20              
21             sub FETCH {
22 3     3   312 my $state = shift;
23 3         19 (@$state = reverse @$state) [0]
24             }
25              
26             sub STORE {
27 0     0     require Carp;
28 0           Carp::croak ("Cannot modify read only variable");
29             }
30              
31              
32             1;
33              
34              
35             __END__