File Coverage

blib/lib/Command/Runner/Format.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	6	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	1	0.0
total	16	36	44.4

package Command::Runner::Format;
use strict;
use warnings;

use Command::Runner::Quote 'quote';

use Exporter 'import';
our @EXPORT_OK = qw(commandf);

# taken from String::Format
my $regex = qr/
               (%             # leading '%'                    $1
                (-)?          # left-align, rather than right  $2
                (\d*)?        # (optional) minimum field width $3
                (?:\.(\d*))?  # (optional) maximum field width $4
                (\{.*?\})?    # (optional) stuff inside        $5
                (\S)          # actual format character        $6
             )/x;

sub commandf {
    if (!$ENV{PERL_COMMAND_RUNNER_SUPPRESS_WARNINGS}) {
        warn "Command::Runner::Format::commandf is deprecated; will be removed in the future version of Command-Runner distribution";
    }
    my ($format, @args) = @_;
    my $i = 0;
    $format =~ s{$regex}{
        $6 eq '%' ? '%' : _replace($args[$i++], $1, $6)
    }ge;
    $format;
}

sub _replace {
    my ($arg, $all, $char) = @_;
    if ($char eq 'q') {
        return quote $arg;
    } else {
        return sprintf $all, $arg;
    }
}

1;