File Coverage

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


line stmt bran cond sub pod time code
1             package Tie::Select;
2              
3 2     2   29363 use strict;
  2         8  
  2         77  
4 2     2   9 use warnings;
  2         3  
  2         97  
5              
6             our $VERSION = 0.01;
7             $VERSION = eval $VERSION;
8              
9 2     2   17 use Exporter;
  2         8  
  2         413  
10             our @ISA = qw/ Exporter /;
11             our @EXPORT = qw/ $SELECT /;
12              
13             tie our $SELECT, __PACKAGE__
14             or die q/Can't tie $SELECT/;
15              
16 2     2   21 sub TIESCALAR { return bless [], $_[0] }
17 2     2   1884 sub FETCH { return select }
18 6     6   704 sub STORE { select $_[1] }
19              
20             1;
21              
22             __END__