File Coverage

blib/lib/Text/VisualWidth/EUC_JP.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 6 6 100.0
pod 0 2 0.0
total 25 30 83.3


line stmt bran cond sub pod time code
1             package Text::VisualWidth::EUC_JP;
2 1     1   24516 use 5.006;
  1         4  
  1         38  
3 1     1   5 use strict;
  1         2  
  1         34  
4 1     1   5 use warnings;
  1         6  
  1         37  
5 1     1   448 use Text::VisualWidth;
  1         2  
  1         116  
6            
7             sub width {
8 3     3 0 13 my $str = shift;
9 3         21 return xs_get_visualwidth_eucjp($str);
10             }
11            
12             sub trim {
13 3     3 0 7 my ( $str, $length ) = @_;
14 3 50 33     24 return $str unless ( defined $str and defined $length );
15 3         17 return xs_trim_visualwidth_eucjp($str, $length);
16             }
17            
18             1;
19             __END__