File Coverage

blib/lib/PerlIO/via/UnicodeDebug.pm
Criterion Covered Total %
statement 23 25 92.0
branch 1 4 25.0
condition n/a
subroutine 8 9 88.8
pod 2 2 100.0
total 34 40 85.0


line stmt bran cond sub pod time code
1             package PerlIO::via::UnicodeDebug;
2              
3 3     3   96 use 5.008001;
  3         10  
  3         115  
4 3     3   15 use strict;
  3         5  
  3         100  
5 3     3   15 use warnings;
  3         5  
  3         84  
6 3     3   13 use utf8;
  3         6  
  3         14  
7              
8 3     3   67 use Unicode::Debug 'unidecode';
  3         5  
  3         462  
9              
10             BEGIN
11             {
12 3     3   6 $PerlIO::via::UnicodeDebug::AUTHORITY = 'cpan:TOBYINK';
13 3         486 $PerlIO::via::UnicodeDebug::VERSION = '0.002';
14             }
15              
16             sub PUSHED
17             {
18 1     1 1 2576 bless \*PUSHED, $_[0];
19             }
20              
21             sub FILL
22             {
23 0     0 1 0 my $line = readline( $_[1] );
24 0 0       0 (defined $line) ? unidecode( $line ) : undef;
25             }
26              
27             sub WRITE
28             {
29 1     1   15 my $x = $_[1];
30 1         5 utf8::decode($x);
31 1         5 unidecode($x);
32 1 50       2 ( print {$_[2]} $x ) ? length($_[1]) : -1;
  1         10  
33             }
34              
35             __PACKAGE__
36             __END__