File Coverage

blib/lib/Translate/Fluent/ResourceSet.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	5	6	83.3
condition	5	5	100.0
subroutine	5	5	100.0
pod	4	4	100.0
total	37	38	97.3

package Translate::Fluent::ResourceSet;

use Moo;

has resources => (
  is  => 'rw',
  default => sub { {} },
);

sub add_resource {
  my ($self, $resource) = @_;

  $self->resources->{ $resource->identifier } = $resource;

}

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

  my $res = $self->resources->{ $res_id };

  return unless $res and $res->isa("Translate::Fluent::Elements::Message");

  return $res->translate( { %{$variables//{}}, __resourceset => $self} );
}

sub get_term {
  my ($self, $term_id) = @_;

  my $res = $self->resources->{ $term_id };
  return unless $res->isa("Translate::Fluent::Elements::Term");

  return $res;
}

sub get_message {
  my ($self, $message_id) = @_;

  my $res = $self->resources->{ $message_id };
  return unless $res->isa("Translate::Fluent::Elements::Message");

  return $res;
}

1;

__END__