File Coverage

blib/lib/Data/Tabular/Config/Extra.pm
Criterion Covered Total %
statement 6 10 60.0
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 2 0.0
total 8 17 47.0


line stmt bran cond sub pod time code
1             # Copyright (C) 2003-2007, G. Allen Morris III, all rights reserved
2 7     7   40 use strict;
  7         23  
  7         944  
3              
4             package Data::Tabular::Config::Extra;
5              
6             sub new
7             {
8 9     9 0 24 my $class = shift;
9 9         61 my $self = bless { @_ }, $class;
10 9         34 $self;
11             }
12              
13             sub output
14             {
15 0     0 0   die;
16 0           my $ret = $_[0]->{output};
17 0 0         $_[0]->{output} = $_[1] if $_[1];
18 0           $ret;
19             }
20              
21             1;