File Coverage

blib/lib/Tie/Toggle.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Tie::Toggle;
2 3     3   791317 use strict;
  3         8  
  3         144  
3 3     3   53 use v5.10;
  3         12  
4              
5 3     3   583 use parent qw( Tie::Cycle );
  3         294  
  3         28  
6 3     3   4314 use vars qw( $VERSION );
  3         7  
  3         354  
7              
8             $VERSION = '1.091';
9              
10             sub TIESCALAR {
11 1     1   183751 my $class = shift;
12 1         4 my $self = [ 0, 2, [ 0 == 1, 1 == 1] ];
13 1         5 bless $self, $class;
14             }
15              
16             1;
17              
18             __END__