File Coverage

blib/lib/DTL/Fast/Tag/Widthratio.pm

Criterion	Covered	Total	%
statement	30	32	93.7
branch	4	6	66.6
condition	0	2	0.0
subroutine	7	7	100.0
pod	0	2	0.0
total	41	49	83.6

package DTL::Fast::Tag::Widthratio;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Tag::Simple';

$DTL::Fast::TAG_HANDLERS{widthratio} = __PACKAGE__;

use DTL::Fast::Utils;

#@Override
sub parse_parameters
{
    my $self = shift;

    if ($self->{parameter} =~ /^\s*(.+?)(?:\s+as\s+([^\s]+))?\s*$/s)
    {
        $self->{target_name} = $2;

        $self->{sources} = $self->parse_sources($1);

        die $self->get_parse_error(
                sprintf(
                    "Three arguments should be passed to widthratio: %s %s"
                    , $self->{parameter} // 'undef'
                    , scalar @{$self->{sources}}
                )
            ) if (scalar @{$self->{sources}} != 3);
    }
    else
    {
        die die $self->get_parse_error("Unable to parse ratio parameters $self->{parameter}");
    }

    return $self;
}

#@Override
sub render
{
    my $self = shift;
    my $context = shift;

    my $sources = $self->{sources};
    my $result = int(
        $sources->[0]->render($context)
            / $sources->[1]->render($context)
            * $sources->[2]->render($context)
    );

    if ($self->{target_name})
    {
        $context->set($self->{target_name} => $result);
        $result = '';
    }

    return $result;
}

1;