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   57659 use strict;
  7         52  
  7         179  
8 7     7   33 use warnings;
  7         8  
  7         151  
9 7     7   480 use Moo;
  7         9379  
  7         30  
10 7     7   3349 use namespace::clean;
  7         9844  
  7         58  
11              
12             our $VERSION = '0.08';
13              
14             has string => ( is => 'ro' );
15              
16 371   50 371 1 4527 sub render { $_[0]->string // '' }
17              
18             sub walk {
19 5     5 1 9 my ($self, $callback) = @_;
20 5         10 $callback->($self);
21 5         10 return;
22             }
23              
24             1;
25             __END__