File Coverage

blib/lib/Bricklayer/Templater/Handler/common/row.pm
Criterion Covered Total %
statement 17 22 77.2
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 22 29 75.8


line stmt bran cond sub pod time code
1             package Bricklayer::Templater::Handler::common::row;
2 1     1   672 use Bricklayer::Templater::Handler;
  1         2  
  1         28  
3 1     1   5 use Carp;
  1         2  
  1         47  
4 1     1   5 use base qw(Bricklayer::Templater::Handler);
  1         2  
  1         234  
5              
6             sub run {
7 2     2 0 3 my $self = shift;
8 2         7 my $Token = $self->{Token};
9 2         7 my $App = $self->app();
10 2         3 my $block = $Token->{block};
11 2         3 my $loop = shift;
12 2         281 carp("in the row handler with $loop");
13             # start our loop sequence
14 2 50       212 if (ref($loop) eq "ARRAY") {
15 0         0 carp('got passed an array');
16 0         0 foreach my $item (@{$loop}) {
  0         0  
17 0         0 carp("Looping through the array");
18 0         0 $App->run_sequencer($block, $item);
19             }
20             }
21 2         6 return;
22             }
23              
24             return 1;