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

package Text::VisualPrintf::IO;

use v5.10;
use strict;
use warnings;

use IO::Handle;
use Text::VisualPrintf;

our @EXPORT_OK = qw(printf vprintf);

sub import {
    my $pkg = shift;
    for my $func (@_) {
	unless (grep { $func eq $_ } @EXPORT_OK) {
            require Carp;
            Carp::croak "\"$func\" is not exported";
	}
	no strict 'refs';
	no warnings 'once', 'redefine';
	*{"IO::Handle::$func"} = \&Text::VisualPrintf::printf;
    }
}

1;

__END__