File Coverage

blib/lib/Text/Sprintf/Length.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	8	10	80.0
condition	7	13	53.8
subroutine	5	5	100.0
pod	1	1	100.0
total	43	53	81.1

package Text::Sprintf::Length;

our $DATE = '2018-03-17'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

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

# XXX BEGIN COPIED FROM Text::sprintfn

my  $re1   = qr/[^)]+/s;
my  $re2   = qr{(?
                    %
                       (? \d+\$ | \((?$re1)\)\$?)?
                       (? [ +0#-]+)?
                       (? \*?[v])?
                       (? -?\d+ |
                           \*\d+\$? |
                           \((?$re1)\))?
                       (?\.?)
                       (?
                           (?: \d+ | \* |
                           \((?$re1)\) ) ) ?
                       (? [%csduoxefgXEGbBpniDUOF])
                   )}x;
our $regex = qr{($re2|%|[^%]+)}s;

# faster version, without using named capture
if (1) {
    $regex = qr{( #all=1
                    ( #fmt=2
                        %
                        (#pi=3
                            \d+\$ | \(
                            (#npi=4
                                [^)]+)\)\$?)?
                        (#flags=5
                            [ +0#-]+)?
                        (#vflag=6
                            \*?[v])?
                        (#width=7
                            -?\d+ |
                            \*\d+\$? |
                            \((#nwidth=8
                                [^)]+)\))?
                        (#dot=9
                            \.?)
                        (#prec=10
                            (?: \d+ | \* |
                                \((#nprec=11
                                    [^)]+)\) ) ) ?
                        (#conv=12
                            [%csduoxefgXEGbBpniDUOF])
                    ) | % | [^%]+
                )}xs;
}

# XXX END COPIED FROM Text::sprintfn

sub sprintf_length {
    my $format = shift;

    my $sprintf_width = length($format);

    while ($format =~ /$regex/g) {
        my ($all, $fmt, $pi, $npi, $flags,
            $vflag, $width, $nwidth, $dot, $prec,
            $nprec, $conv) =
                ($1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12);

        if ($fmt && defined $sprintf_width) {

            if ($conv eq '%' || $conv eq 'c') {
                $width //= 1;
            } elsif ($conv eq 'p' || $conv eq 'c') {
                $width //= 1;
            } elsif ($conv eq 'n') {
                $width = 0;
            }

            if (defined $width) {
                $sprintf_width += $width - length($all);
            } else {
                $sprintf_width = undef;
            }

        }
    }

    $sprintf_width;
}

1;
# ABSTRACT: Calculate length of sprintf()-formatted string

__END__