File Coverage

blib/lib/Text/VisualPrintf.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	3	6	50.0
condition			n/a
subroutine	11	12	91.6
pod	4	4	100.0
total	50	55	90.9

package Text::VisualPrintf;

our $VERSION = "3.10";

use v5.10;
use strict;
use warnings;
use Carp;

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

use Data::Dumper;
use Text::VisualPrintf::Transform;

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

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

sub sprintf {
    my($format, @args) = @_;
    my $xform = Text::VisualPrintf::Transform
	->new(except => $format,
	      test   => $IS_TARGET,
	      length => $VISUAL_WIDTH,
	      max    => int @args,
	);
    $xform->encode(@args) if $xform;
    my $s = CORE::sprintf $format, @args;
    $xform->decode($s) if $xform;
    $s;
}

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

1;

__END__