File Coverage

blib/lib/Hash/Key/Quote.pm
Criterion Covered Total %
statement 15 15 100.0
branch 4 4 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Hash::Key::Quote;
2              
3             our $DATE = '2019-07-10'; # DATE
4             our $VERSION = '0.001'; # VERSION
5              
6 1     1   56195 use 5.010001;
  1         11  
7 1     1   11 use strict;
  1         3  
  1         21  
8 1     1   5 use warnings;
  1         1  
  1         31  
9              
10 1     1   6 use Exporter 'import';
  1         1  
  1         122  
11             our @EXPORT_OK = qw(
12             should_quote_hash_key
13             );
14              
15             sub should_quote_hash_key {
16 5     5 1 82 my $str = shift;
17 5 100       28 return 0 if $str =~ /\A-?[A-Za-z_]\w*\z/;
18 3 100       16 return 0 if $str =~ /\A-?[1-9]\d{0,8}\z/;
19 2         7 1;
20             }
21              
22             1;
23             # ABSTRACT: Utility routines related to quoting of hash keys
24              
25             __END__