line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
9
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
30
|
|
2
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
28
|
|
3
|
1
|
|
|
1
|
|
7
|
use Perlmazing; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
6
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
sub main { |
6
|
10
|
|
|
10
|
0
|
14431
|
my $offset = 0; |
7
|
10
|
50
|
66
|
|
|
39
|
(@_) = ($_) if not @_ and defined $_; |
8
|
10
|
100
|
66
|
|
|
47
|
if (not defined wantarray) { |
|
|
100
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
9
|
4
|
|
|
|
|
8
|
foreach my $i (@_) { |
10
|
1
|
|
|
1
|
|
8
|
no warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
308
|
|
11
|
13
|
50
|
|
|
|
33
|
defined($i) ? print "$i\n" : print "\n"; |
12
|
|
|
|
|
|
|
} |
13
|
4
|
100
|
|
|
|
19
|
print "\n" if not @_; |
14
|
|
|
|
|
|
|
} elsif (defined wantarray and not wantarray) { |
15
|
3
|
|
|
|
|
6
|
my $res; |
16
|
3
|
|
|
|
|
5
|
foreach my $i (@_) { |
17
|
13
|
50
|
|
|
|
27
|
$res .= defined($i) ? "$i\n" : "\n"; |
18
|
|
|
|
|
|
|
} |
19
|
3
|
50
|
|
|
|
8
|
return "\n" if not @_; |
20
|
3
|
|
|
|
|
8
|
return $res; |
21
|
|
|
|
|
|
|
} elsif (wantarray) { |
22
|
3
|
|
|
|
|
5
|
my @res; |
23
|
3
|
|
|
|
|
7
|
foreach my $i (@_) { |
24
|
13
|
50
|
|
|
|
30
|
push @res, defined($i) ? "$i\n" : "\n"; |
25
|
|
|
|
|
|
|
} |
26
|
3
|
50
|
|
|
|
10
|
return "\n" if not @_; |
27
|
3
|
|
|
|
|
13
|
return @res; |
28
|
|
|
|
|
|
|
} |
29
|
|
|
|
|
|
|
} |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
1; |