| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Getopt::Yath::Option::AutoList; |
|
2
|
1
|
|
|
1
|
|
6
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
33
|
|
|
3
|
1
|
|
|
1
|
|
3
|
use warnings; |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
67
|
|
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $VERSION = '2.000007'; |
|
6
|
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
5
|
use parent 'Getopt::Yath::Option::List'; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
7
|
|
|
8
|
1
|
|
|
1
|
|
53
|
use Getopt::Yath::HashBase; |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
7
|
|
|
9
|
|
|
|
|
|
|
|
|
10
|
12
|
|
|
12
|
0
|
55
|
sub allows_arg { 1 } |
|
11
|
10
|
|
|
10
|
0
|
26
|
sub requires_arg { 0 } |
|
12
|
4
|
|
|
4
|
0
|
12
|
sub allows_autofill { 1 } |
|
13
|
1
|
|
|
1
|
0
|
5
|
sub requires_autofill { 1 } |
|
14
|
|
|
|
|
|
|
|
|
15
|
2
|
|
|
2
|
0
|
5
|
sub inject_default_long_examples { qq{='["json","list"]'} } |
|
16
|
2
|
|
|
2
|
0
|
5
|
sub inject_default_short_examples { qq{='["json","list"]'} } |
|
17
|
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
__END__ |