File Coverage

blib/lib/Locale/Maketext/Utils/Phrase/Norm/Grapheme.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Locale::Maketext::Utils::Phrase::Norm::Grapheme;
2              
3 4     4   4955 use strict;
  4         148  
  4         150  
4 4     4   23 use warnings;
  4         8  
  4         856  
5              
6             sub normalize_maketext_string {
7 74     74 0 140 my ($filter) = @_;
8              
9 74         243 my $string_sr = $filter->get_string_sr();
10              
11 74 100       104 if ( ${$string_sr} =~ s/((?:\\x[0-9a-fA-F]{2})+)/[comment,grapheme “$1”]/ ) {
  74         338  
12 8         31 $filter->add_violation('Contains grapheme notation');
13             }
14              
15 74         231 return $filter->return_value;
16             }
17              
18             1;
19              
20             __END__