File Coverage

blib/lib/Text/ANSI/Printf.pm

Criterion	Covered	Total	%
statement	24	27	88.8
branch	2	6	33.3
condition			n/a
subroutine	8	10	80.0
pod	4	4	100.0
total	38	47	80.8

package Text::ANSI::Printf;

our $VERSION = "2.01";

use v5.14;
use warnings;
use Carp;

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

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

use Text::Conceal;
use Text::ANSI::Fold::Util qw(ansi_width);

sub sprintf {
    my($format, @args) = @_;
    my $conceal = Text::Conceal->new(
	except => $format,
	test   => qr/[\e\b\P{ASCII}]/,
	length => \&ansi_width,
	max    => int @args,
	);
    $conceal->encode(@args) if $conceal;
    my $s = CORE::sprintf $format, @args;
    $conceal->decode($s)    if $conceal;
    $s;
}

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

1;

__END__