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   1929 use strict;
  4         5  
  4         92  
4 4     4   12 use warnings;
  4         4  
  4         360  
5              
6             sub normalize_maketext_string {
7 74     74 0 77 my ($filter) = @_;
8              
9 74         117 my $string_sr = $filter->get_string_sr();
10              
11 74 100       60 if ( ${$string_sr} =~ s/((?:\\x[0-9a-fA-F]{2})+)/[comment,grapheme “$1”]/ ) {
  74         204  
12 8         18 $filter->add_violation('Contains grapheme notation');
13             }
14              
15 74         126 return $filter->return_value;
16             }
17              
18             1;
19              
20             __END__