File Coverage

blib/lib/Test/Timer/TimeoutException.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package Test::Timer::TimeoutException;
2              
3 3     3   21 use strict;
  3         6  
  3         85  
4 3     3   14 use warnings;
  3         7  
  3         97  
5 3     3   28 use vars qw($VERSION);
  3         9  
  3         119  
6 3     3   1957 use Data::Dumper;
  3         20510  
  3         186  
7              
8 3     3   23 use base 'Error';
  3         6  
  3         259  
9 3     3   20 use overload ( '""' => 'stringify' );
  3         6  
  3         17  
10              
11             $VERSION = '2.09';
12              
13             sub new {
14 3     3 1 54 my ($self, $time) = @_;
15              
16 3         12 local $Error::Depth = $Error::Depth + 1;
17              
18 3         40 $self = $self->SUPER::new( -text => $time, -value => $time );
19              
20 3         277 return $self;
21             }
22              
23             1;
24              
25             __END__