File Coverage

blib/lib/Lingua/Awkwords/String.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 1 2 50.0
subroutine 6 6 100.0
pod 2 2 100.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             # -*- Perl -*-
2             #
3             # a string object (mostly so ->render can recurse through the parse tree)
4              
5             package Lingua::Awkwords::String;
6              
7 7     7   59156 use strict;
  7         23  
  7         171  
8 7     7   31 use warnings;
  7         11  
  7         166  
9 7     7   490 use Moo;
  7         9303  
  7         29  
10 7     7   3230 use namespace::clean;
  7         9324  
  7         45  
11              
12             our $VERSION = '0.10';
13              
14             has string => (is => 'ro');
15              
16 358   50 358 1 4849 sub render { $_[0]->string // '' }
17              
18             sub walk {
19 5     5 1 9 my ($self, $callback) = @_;
20 5         11 $callback->($self);
21 5         11 return;
22             }
23              
24             1;
25             __END__