File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/WordWrap.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 4 0.0
condition 0 3 0.0
subroutine 3 6 50.0
pod 0 3 0.0
total 12 35 34.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   17721 use strict;
  37         112  
  37         1115  
3 37     37   242 use warnings;
  37         104  
  37         1424  
4              
5             package WWW::Shopify::Liquid::Filter::WordWrap;
6 37     37   244 use base 'WWW::Shopify::Liquid::Filter';
  37         95  
  37         10211  
7              
8 0     0 0   sub max_arguments { 1; }
9 0     0 0   sub min_arguments { 1; }
10              
11             sub operate {
12 0     0 0   my ($self, $hash, $text, $max_characters) = @_;
13 0           my @parts = ("");
14 0           for (split(/\s/, $text)) {
15 0 0 0       push(@parts, "") if ($parts[-1] && length($parts[-1] . " " . $_) > $max_characters);
16 0 0         if ($parts[-1]) {
17 0           $parts[-1] .= " " . $_;
18             } else {
19 0           $parts[-1] = $_;
20             }
21             }
22 0           return join("\n", @parts);
23             }
24              
25             1;