File Coverage

blib/lib/Devel/hdb/Utils.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


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;