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 4     4   31 use strict;
  4         9  
  4         134  
4 4     4   21 use warnings;
  4         8  
  4         131  
5 4     4   59 use vars qw($VERSION);
  4         14  
  4         190  
6 4     4   2930 use Data::Dumper;
  4         30165  
  4         326  
7              
8 4     4   38 use base 'Error';
  4         9  
  4         478  
9 4     4   28 use overload ( q{""} => 'stringify' );
  4         8  
  4         29  
10              
11             $VERSION = '2.12';
12              
13             sub new {
14 3     3 1 113 my ( $self, $time ) = @_;
15              
16 3         11 local $Error::Depth = $Error::Depth + 1;
17              
18 3         55 $self = $self->SUPER::new( -text => $time, -value => $time );
19              
20 3         314 return $self;
21             }
22              
23             1;
24              
25             __END__