File Coverage

blib/lib/App/ansiprintf.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	31	34	91.1

package App::ansiprintf;

use v5.14;
use warnings;
use open IO => ':utf8', ':std';

our $VERSION = "2.07";

our $WARN //= $ENV{ANSIPRINTF_WARNING} // 1;
$SIG{__WARN__} = sub {
    my $warning = shift;
    if ($warning =~ /^(.*) in sprintf at /) {
	print STDERR "$1\n" if $WARN;
    } else {
	print STDERR $warning;
    }
};

use Pod::Usage;
use Text::ANSI::Printf qw(ansi_printf);
$Text::ANSI::Printf::REORDER = 1;

use App::ansiprintf::Util qw(decode_argv unescape);

sub new {
    return __PACKAGE__;
}

sub run {
    my $app = shift;
    local @ARGV = decode_argv splice @_ or pod2usage;
    ansi_printf map unescape, @ARGV;
    return 0;
}

1;

__END__