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   22 use strict;
  3         6  
  3         88  
4 3     3   15 use warnings;
  3         6  
  3         82  
5 3     3   25 use vars qw($VERSION);
  3         6  
  3         145  
6 3     3   1857 use Data::Dumper;
  3         19957  
  3         191  
7              
8 3     3   39 use base 'Error';
  3         7  
  3         321  
9 3     3   22 use overload ( '""' => 'stringify' );
  3         6  
  3         19  
10              
11             $VERSION = '2.09';
12              
13             sub new {
14 3     3 1 44 my ($self, $time) = @_;
15              
16 3         8 local $Error::Depth = $Error::Depth + 1;
17              
18 3         31 $self = $self->SUPER::new( -text => $time, -value => $time );
19              
20 3         230 return $self;
21             }
22              
23             1;
24              
25             __END__