File Coverage

blib/lib/Text/VisualPrintf.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	1	2	50.0
condition	1	2	50.0
subroutine	10	11	90.9
pod	4	4	100.0
total	42	46	91.3

package Text::VisualPrintf;

our $VERSION = "4.03";

use v5.14;
use warnings;
use Carp;

use Exporter 'import';
our @EXPORT_OK = qw(&vprintf &vsprintf);

use Data::Dumper;
use Text::Conceal;

sub vprintf  { &printf (@_) }
sub vsprintf { &sprintf(@_) }

use Text::VisualWidth::PP;
our $IS_TARGET = qr/[\e\b\P{ASCII}]/;
our $VISUAL_WIDTH = \&Text::VisualWidth::PP::width;
our $REORDER //= 0;

sub sprintf {
    my($format, @args) = @_;
    my $conceal = Text::Conceal->new(
	except    => $format,
	test      => $IS_TARGET,
	length    => $VISUAL_WIDTH,
	max       => int @args,
	ordered   => ! $REORDER,
	duplicate => !!$REORDER,
    ) || goto &CORE::sprintf;
    ($conceal->decode(CORE::sprintf($format,
				    $conceal->encode(@args))))[0];
}

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

1;

__END__