File Coverage

blib/lib/Translate/Fluent/Elements/ArgumentList.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	2	2	100.0
pod	1	1	100.0
total	20	21	95.2

package Translate::Fluent::Elements::ArgumentList;

use Moo;
extends 'Translate::Fluent::Elements::Base';

has argument => (
  is  => 'ro',
  default => sub { [] },
);

around BUILDARGS => sub {
  my ($orig, $self, %args) = @_;

  $args{ argument } = delete $args{ Argument };
  $args{ argument } = [ $args{ argument } ]
    unless ref $args{argument} eq 'ARRAY';

  $args{ argument } = [map { {Argument => $_ } }
                        @{ $args{ argument } } ];

  $self->$orig( %args );
};

sub to_variables {
  my ($self, $variables ) = @_;

  my %vars;

  my $pos = 0;
  for my $arg (@{ $self->argument // [] }) {
    my $id = $arg->identifier;
    unless ($id ) {
      $id = "position_$pos";
      $pos++;
    }
    $vars{ $id } = $arg->translate( $variables );
  }

  return \%vars;
}


1;

__END__