File Coverage

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


line stmt bran cond sub pod time code
1             package Translate::Fluent::Elements::BlockText;
2              
3 6     6   39 use Moo;
  6         14  
  6         36  
4             extends 'Translate::Fluent::Elements::Base';
5              
6             has text => (
7             is => 'ro',
8             default => sub { undef },
9             );
10              
11              
12             around BUILDARGS => sub {
13             my ($orig, $class, %args) = @_;
14              
15             my $text = ($args{indented_char}//'').($args{inline_text}//'');
16              
17             $class->$orig( text => $text );
18             };
19              
20             sub translate {
21 10     10 1 32 return "\n".$_[0]->text;
22             }
23              
24             1;
25              
26             __END__