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   47419 use strict;
  7         22  
  7         178  
8 7     7   33 use warnings;
  7         15  
  7         155  
9 7     7   326 use Moo;
  7         7582  
  7         30  
10 7     7   2869 use namespace::clean;
  7         7759  
  7         45  
11              
12             our $VERSION = '0.07';
13              
14             has string => ( is => 'ro' );
15              
16 371   50 371 1 4512 sub render { $_[0]->string // '' }
17              
18             sub walk {
19 5     5 1 9 my ($self, $callback) = @_;
20 5         10 $callback->($self);
21 5         9 return;
22             }
23              
24             1;
25             __END__