File Coverage

blib/lib/Text/VisualPrintf/IO.pm
Criterion Covered Total %
statement 26 28 92.8
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 35 38 92.1


line stmt bran cond sub pod time code
1             package Text::VisualPrintf::IO;
2              
3 5     5   305876 use v5.10;
  5         55  
4 5     5   22 use strict;
  5         10  
  5         142  
5 5     5   24 use warnings;
  5         10  
  5         158  
6              
7 5     5   2360 use IO::Handle;
  5         25699  
  5         189  
8 5     5   1371 use Text::VisualPrintf;
  5         17  
  5         505  
9              
10             our @EXPORT_OK = qw(printf vprintf);
11              
12             sub import {
13 5     5   50 my $pkg = shift;
14 5         22 for my $func (@_) {
15 8 50       16 unless (grep { $func eq $_ } @EXPORT_OK) {
  16         48  
16 0         0 require Carp;
17 0         0 Carp::croak "\"$func\" is not exported";
18             }
19 5     5   38 no strict 'refs';
  5         14  
  5         160  
20 5     5   24 no warnings 'once', 'redefine';
  5         20  
  5         531  
21 8         16 *{"IO::Handle::$func"} = \&Text::VisualPrintf::printf;
  8         1288  
22             }
23             }
24              
25             1;
26              
27             __END__