File Coverage

blib/lib/Text/ANSI/Printf.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	0	2	0.0
condition			n/a
subroutine	8	10	80.0
pod	4	4	100.0
total	33	40	82.5

package Text::ANSI::Printf;

use v5.14;
use warnings;
use Carp;

our $VERSION = "1.03";

use Exporter 'import';
our @EXPORT_OK = qw(&ansi_printf &ansi_sprintf);

sub ansi_printf  { &printf (@_) }
sub ansi_sprintf { &sprintf(@_) }

use Text::VisualPrintf;
use Text::ANSI::Fold::Util;

sub sprintf {
    local $Text::VisualPrintf::IS_TARGET = qr/[\e\b\P{ASCII}]/;
    local $Text::VisualPrintf::VISUAL_WIDTH = \&Text::ANSI::Fold::Util::width;
    Text::VisualPrintf::sprintf(@_);
}

sub printf {
    my $fh = ref($_[0]) =~ /^(?:GLOB|IO::)/ ? shift : select;
    $fh->print(&sprintf(@_));
}

1;

__END__