line |
stmt |
bran |
cond |
sub |
time |
code |
1
|
|
|
|
|
|
#!/usr/bin/env perl |
2
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
5
|
use strict; |
|
1
|
|
|
|
2
|
|
|
1
|
|
|
|
37
|
|
4
|
1
|
|
|
1
|
5
|
use warnings; |
|
1
|
|
|
|
2
|
|
|
1
|
|
|
|
33
|
|
5
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
268
|
use lib '../lib'; |
|
1
|
|
|
|
852
|
|
|
1
|
|
|
|
10
|
|
7
|
1
|
|
|
1
|
650
|
use Test::More tests => 3; |
|
1
|
|
|
|
21219
|
|
|
1
|
|
|
|
32
|
|
8
|
|
|
|
|
|
|
9
|
1
|
|
|
|
113462
|
ok 1; |
10
|
|
|
|
|
|
subtest 'some name' => sub { |
11
|
1
|
|
|
1
|
532
|
my $num_tests = 2 + int( rand(3) ); |
12
|
1
|
|
|
|
6
|
plan tests => $num_tests; |
13
|
1
|
|
|
|
142
|
ok 1 for 1 .. $num_tests - 1; |
14
|
|
|
|
|
|
subtest 'some name' => sub { |
15
|
1
|
|
|
|
417
|
plan 'no_plan'; |
16
|
1
|
|
|
|
35
|
ok 1 for 1 .. 2 + int( rand(3) ); |
17
|
1
|
|
|
|
1013
|
}; |
18
|
1
|
|
|
|
447
|
}; |
19
|
1
|
|
|
|
2195
|
ok 1; |