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   216 use strict;
  37         67  
  37         897  
4 37     37   153 use warnings;
  37         89  
  37         3751  
5              
6             our $VERSION = '0.23_15';
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   117 my($expr) = @_;
13              
14 54         231 $expr =~ s/^\s*(?
15 54         153 return $expr;
16             }
17              
18             1;