line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Parse::KeyValue::Shellish; |
2
|
2
|
|
|
2
|
|
32167
|
use 5.008005; |
|
2
|
|
|
|
|
8
|
|
|
2
|
|
|
|
|
78
|
|
3
|
2
|
|
|
2
|
|
12
|
use strict; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
81
|
|
4
|
2
|
|
|
2
|
|
18
|
use warnings; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
67
|
|
5
|
2
|
|
|
2
|
|
1652
|
use parent qw/Exporter/; |
|
2
|
|
|
|
|
585
|
|
|
2
|
|
|
|
|
10
|
|
6
|
2
|
|
|
2
|
|
1214
|
use Parse::KeyValue::Shellish::Parser; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
252
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our @EXPORT_OK = qw/parse_key_value/; |
9
|
|
|
|
|
|
|
our $VERSION = "0.01"; |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub parse_key_value { |
12
|
14
|
|
|
14
|
1
|
37618
|
my ($str) = @_; |
13
|
|
|
|
|
|
|
|
14
|
14
|
|
|
|
|
89
|
my $parser = Parse::KeyValue::Shellish::Parser->new($str); |
15
|
14
|
|
|
|
|
57
|
$parser->parse; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |
19
|
|
|
|
|
|
|
__END__ |