File Coverage

blib/lib/Tree/Fat.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1 7     7   58975 use strict;
  7         16  
  7         394  
2             package Tree::Fat;
3              
4 7     7   42 use vars qw($VERSION @ISA @EXPORT);
  7         14  
  7         1961  
5              
6             require Exporter;
7             require DynaLoader;
8             require AutoLoader;
9              
10             @ISA = qw(Exporter DynaLoader);
11             @EXPORT = qw();
12             $VERSION = '1.111';
13              
14             'Tree::Fat'->bootstrap($VERSION);
15              
16             sub TIEHASH {
17 0     0     bless Tree::Fat->new(), shift;
18             }
19              
20             sub new_hash {
21 0     0 0   my %fake;
22 0           tie %fake, shift;
23 0           \%fake;
24             }
25              
26             *fetch = \&FETCH;
27             *clear = \&CLEAR;
28             *delete = \&DELETE;
29              
30             1;
31             __END__