| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
8
|
|
|
8
|
|
44
|
use strict; |
|
|
8
|
|
|
|
|
15
|
|
|
|
8
|
|
|
|
|
284
|
|
|
2
|
8
|
|
|
8
|
|
33
|
use warnings; |
|
|
8
|
|
|
|
|
13
|
|
|
|
8
|
|
|
|
|
741
|
|
|
3
|
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
package Time::Out::Exception; |
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
# https://stackoverflow.com/questions/23407085/why-does-eq-not-work-when-one-argument-has-overloaded-stringification |
|
7
|
8
|
|
|
8
|
|
4798
|
use overload '""' => sub { 'timeout' }, fallback => 1; |
|
|
8
|
|
|
17
|
|
12806
|
|
|
|
8
|
|
|
|
|
66
|
|
|
|
17
|
|
|
|
|
4957
|
|
|
8
|
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# keeping the following $VERSION declaration on a single line is important |
|
10
|
|
|
|
|
|
|
#<<< |
|
11
|
8
|
|
|
8
|
|
765
|
use version 0.9915; our $VERSION = version->declare( '1.0.0' ); |
|
|
8
|
|
|
|
|
161
|
|
|
|
8
|
|
|
|
|
62
|
|
|
12
|
|
|
|
|
|
|
#>>> |
|
13
|
|
|
|
|
|
|
|
|
14
|
9
|
|
|
9
|
0
|
29
|
sub new { shift; bless { @_ }, __PACKAGE__ } |
|
|
9
|
|
|
|
|
382
|
|
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1; |