File Coverage

blib/lib/Treemap/Output.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Treemap::Output;
2              
3 1     1   13 use 5.006;
  1         2  
  1         31  
4 1     1   4 use strict;
  1         1  
  1         28  
5 1     1   4 use warnings;
  1         1  
  1         18  
6 1     1   3 use Carp;
  1         1  
  1         145  
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
23             # object:
24             # ------------------------------------------
25             sub new
26             {
27 1     1 0 2 my $proto = shift;
28 1   33     6 my $class = ref( $proto ) || $proto;
29 1         4 my $self = {
30             @_, # Allow user to override parameters
31             };
32              
33 1         2 bless $self, $class;
34 1         4 return $self;
35             }
36              
37             1;
38              
39             __END__