line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Linux::Perl::ParseFlags; |
2
|
|
|
|
|
|
|
|
3
|
11
|
|
|
11
|
|
73
|
use strict; |
|
11
|
|
|
|
|
27
|
|
|
11
|
|
|
|
|
365
|
|
4
|
11
|
|
|
11
|
|
116
|
use warnings; |
|
11
|
|
|
|
|
19
|
|
|
11
|
|
|
|
|
1520
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
sub parse { |
7
|
46
|
|
|
46
|
0
|
209
|
my ($arch_module, $flags_ar) = @_; |
8
|
|
|
|
|
|
|
|
9
|
46
|
|
|
|
|
115
|
my $flags = 0; |
10
|
46
|
100
|
|
|
|
202
|
if ( $flags_ar ) { |
11
|
16
|
|
|
|
|
299
|
for my $fl ( @$flags_ar ) { |
12
|
18
|
50
|
|
|
|
704
|
my $val_cr = $arch_module->can("_flag_$fl") or do { |
13
|
0
|
|
|
|
|
0
|
die "unknown flag: “$fl”"; |
14
|
|
|
|
|
|
|
}; |
15
|
18
|
|
|
|
|
133
|
$flags |= $val_cr->(); |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
46
|
|
|
|
|
234
|
return $flags; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |