line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Devel::hdb::Utils; |
2
|
|
|
|
|
|
|
|
3
|
37
|
|
|
37
|
|
276
|
use strict; |
|
37
|
|
|
|
|
81
|
|
|
37
|
|
|
|
|
1191
|
|
4
|
37
|
|
|
37
|
|
204
|
use warnings; |
|
37
|
|
|
|
|
69
|
|
|
37
|
|
|
|
|
4303
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '0.24'; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
# This substitution is done so that we return HASH, as opposed to a list |
9
|
|
|
|
|
|
|
# An expression of %hash results in a list of key/value pairs that can't |
10
|
|
|
|
|
|
|
# be distinguished from a list. A glob gets replaced by a glob ref. |
11
|
|
|
|
|
|
|
sub _fixup_expr_for_eval { |
12
|
54
|
|
|
54
|
|
133
|
my($expr) = @_; |
13
|
|
|
|
|
|
|
|
14
|
54
|
|
|
|
|
319
|
$expr =~ s/^\s*(?
|
15
|
54
|
|
|
|
|
189
|
return $expr; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |