line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package App::Greple::Common; |
2
|
|
|
|
|
|
|
|
3
|
2
|
|
|
2
|
|
26
|
use v5.14; |
|
2
|
|
|
|
|
8
|
|
4
|
2
|
|
|
2
|
|
11
|
use warnings; |
|
2
|
|
|
|
|
5
|
|
|
2
|
|
|
|
|
56
|
|
5
|
|
|
|
|
|
|
|
6
|
2
|
|
|
2
|
|
11
|
use Exporter 'import'; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
128
|
|
7
|
|
|
|
|
|
|
our @EXPORT = (); |
8
|
|
|
|
|
|
|
our %EXPORT_TAGS = (); |
9
|
|
|
|
|
|
|
our @EXPORT_OK = qw(); |
10
|
|
|
|
|
|
|
|
11
|
2
|
|
|
2
|
|
12
|
use constant FILELABEL => '__file__'; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
272
|
|
12
|
|
|
|
|
|
|
push @EXPORT, qw(FILELABEL); |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
*opt_d = \%main::opt_d; push @EXPORT, qw(%opt_d); |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
*setopt = \&main::setopt; push @EXPORT_OK, qw(setopt); |
17
|
|
|
|
|
|
|
*newopt = \&main::newopt; push @EXPORT_OK, qw(newopt); |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |