File Coverage

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

Criterion	Covered	Total	%
statement	11	12	91.6
branch	5	6	83.3
condition			n/a
subroutine	3	3	100.0
pod	2	2	100.0
total	21	23	91.3

package Translate::Fluent::Elements::Argument;

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

has [qw(
      named_argument
      inline_expression
    )] => (
  is  => 'ro',
  default => sub { undef },
);

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

  $args{named_argument}     = delete $args{ NamedArgument };
  $args{inline_expression}  = delete $args{ InlineExpression };

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

sub identifier {
  my ($self) = @_;

  if ($self->named_argument) {
    return $self->named_argument->identifier;
  }

  return;
}

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

  if ($self->named_argument) {
    return $self->named_argument->translate( $variables );
  } elsif ($self->inline_expression) {
    return $self->inline_expression->translate( $variables );
  }

  return;
}


1;

__END__