File Coverage

blib/lib/Translate/Fluent/Elements/AttributeAccessor.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Translate::Fluent::Elements::AttributeAccessor;
2              
3 6     6   44 use Moo;
  6         13  
  6         33  
4             extends 'Translate::Fluent::Elements::Base';
5              
6             has identifier => (
7             is => 'ro',
8             default => sub { undef },
9             );
10              
11             around BUILDARGS => sub {
12             my ($orig, $class, %args) = @_;
13              
14             $args{identifier} = delete $args{ Identifier };
15              
16             $class->$orig( %args );
17             };
18              
19             1;
20             __END__