File Coverage

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

Criterion	Covered	Total	%
statement	6	6	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	2	2	100.0
pod	1	1	100.0
total	12	14	85.7

package Translate::Fluent::Elements::InlineExpression;

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

has [qw(
      string_literal
      number_literal
      function_reference
      message_reference
      term_reference
      variable_reference
      inline_placeable
    )] => (
  is  => 'ro',
  default => sub { undef },
);

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

  $args{string_literal}     = delete $args{ StringLiteral };
  $args{number_literal}     = delete $args{ NumberLiteral };
  $args{function_reference} = delete $args{ FunctionReference };
  $args{message_reference}  = delete $args{ MessageReference };
  $args{term_reference}     = delete $args{ TermReference };
  $args{variable_reference} = delete $args{ VariableReference };
  $args{inline_placeable}   = delete $args{ InlinePlaceable };

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

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

  my $part
    =     $self->string_literal
      ||  $self->number_literal
      ||  $self->function_reference
      ||  $self->message_reference
      ||  $self->term_reference
      ||  $self->variable_reference
      ||  $self->inline_placeable;

  return ref $part ? $part->translate( $variables ) : $part;

}

1;
__END__