File Coverage

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

Criterion	Covered	Total	%
statement	12	12	100.0
branch	6	8	75.0
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	21	23	91.3

package Translate::Fluent::Elements::TermReference;

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

has [qw(
      identifier
      attribute_accessor
      call_arguments
    )] => (
  is  => 'ro',
  default => sub { undef },
);

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

  $args{identifier}         = delete $args{ Identifier };
  $args{attribute_accessor} = delete $args{ AttributeAccessor };
  $args{call_arguments}     = delete $args{ CallArguments };

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

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

  my $res = $variables->{__resourceset}->get_term( $self->identifier );
  return unless $res;

  if ($self->attribute_accessor) {
    $res = $res->get_attribute_resource(
                $self->attribute_accessor->identifier
              );
  }

  return unless $res;

  my $vars = $self->call_arguments
    ? { %{ $self->call_arguments->to_variables },
           __resourceset => $variables->{__resourceset}
      }
    : $variables;

  return $res->translate( $vars );
}

1;
__END__