File Coverage

blib/lib/Treemap/Input.pm
Criterion Covered Total %
statement 17 19 89.4
branch n/a
condition 1 3 33.3
subroutine 5 6 83.3
pod 0 2 0.0
total 23 30 76.6


line stmt bran cond sub pod time code
1             package Treemap::Input;
2              
3 1     1   14 use 5.006;
  1         2  
  1         32  
4 1     1   4 use strict;
  1         2  
  1         22  
5 1     1   4 use warnings;
  1         1  
  1         19  
6 1     1   4 use Carp;
  1         1  
  1         191  
7              
8             require Exporter;
9              
10             our @ISA = qw( Exporter );
11             our @EXPORT_OK = ( );
12             our @EXPORT = qw( );
13             our $VERSION = '0.01';
14              
15              
16             # ------------------------------------------
17             # Methods:
18             # ------------------------------------------
19              
20              
21             # ------------------------------------------
22             # new() - Create and return new Treemap object:
23             # ------------------------------------------
24             sub new
25             {
26 1     1 0 2 my $proto = shift;
27 1   33     7 my $class = ref( $proto ) || $proto;
28 1         2 my $self = {
29             @_,
30             };
31              
32 1         3 bless $self, $class;
33 1         4 return $self;
34             }
35              
36             sub treedata
37             {
38 0     0 0   my $self = shift;
39 0           return $self->{ DATA };
40             }
41             1;
42              
43             __END__