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; |