File Coverage

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

Criterion	Covered	Total	%
statement	9	10	90.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	2	2	100.0
total	16	17	94.1

package Translate::Fluent::Elements::Term;

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

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

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

  $args{ identifier } = delete $args{ Identifier };
  $args{ pattern }    = delete $args{ Pattern };
  $args{ attributes}  = delete $args{ Attribute };
  $args{ attributes } = [ $args{ attributes } ]
    unless ref $args{ attributes } eq 'ARRAY';

  $args{ attributes }  = [ map { { Attribute => $_ } }
                              @{ $args{ attributes } }
                         ];

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

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

  return $self->pattern->translate( $variables );
}

sub get_attribute_resource {
  my ($self, $attr_id) = @_;

  for my $attr ( @{ $self->attributes } ) {
    return $attr
      if $attr->identifier eq $attr_id;

  }

  return;
}


1;
__END__