Lines Matching refs:block
69 # template($block)
73 my ($self, $block) = @_;
74 $block = pad($block, 2) if $PRETTY;
76 return "sub { return '' }" unless $block =~ /\S/;
86 $block
100 # anon_block($block) [% BLOCK %] ... [% END %]
104 my ($self, $block) = @_;
105 $block = pad($block, 2) if $PRETTY;
115 $block
129 # block($blocktext)
132 sub block {
133 my ($self, $block) = @_;
134 return join("\n", @{ $block || [] });
390 # if($expr, $block, $else) [% IF foo < bar %]
398 my ($self, $expr, $block, $else) = @_;
401 $block = pad($block, 1) if $PRETTY;
403 my $output = "if ($expr) {\n$block\n}\n";
406 ($expr, $block) = @$elsif;
407 $block = pad($block, 1) if $PRETTY;
408 $output .= "elsif ($expr) {\n$block\n}\n";
420 # foreach($target, $list, $args, $block) [% FOREACH x = [ foo bar ] %]
426 my ($self, $target, $list, $args, $block, $label) = @_;
445 $block = pad($block, 3) if $PRETTY;
465 $block;
494 # wrapper(\@nameargs, $block) [% WRAPPER template foo = bar %]
499 my ($self, $nameargs, $block) = @_;
506 return $self->multi_wrapper($file, $hash, $block)
510 $block = pad($block, 1) if $PRETTY;
519 $block
527 my ($self, $file, $hash, $block) = @_;
528 $block = pad($block, 1) if $PRETTY;
541 $block
552 # while($expr, $block) [% WHILE x < 10 %]
558 my ($self, $expr, $block, $label) = @_;
559 $block = pad($block, 2) if $PRETTY;
569 $block
588 my ($match, $block, $default);
595 $block = $case->[1];
596 $block = pad($block, 1) if $PRETTY;
601 $block
626 # try($block, \@catch) [% TRY %]
634 my ($self, $block, $catch) = @_;
640 $block = pad($block, 2) if $PRETTY;
678 $block
788 # view(\@nameargs, $block) [% VIEW name args %]
793 my ($self, $nameargs, $block, $defblocks) = @_;
797 $block = pad($block, 1) if $PRETTY;
817 $block
828 # perl($block)
832 my ($self, $block) = @_;
833 $block = pad($block, 1) if $PRETTY;
844 $block
873 # rawperl($block)
880 my ($self, $block, $line) = @_;
881 for ($block) {
885 $block = pad($block, 1) if $PRETTY;
890 #line 1 "RAWPERL block$line"
891 $block
902 my ($self, $lnameargs, $block) = @_;
909 $block = pad($block, 1) if $PRETTY;
919 $block
928 # capture($name, $block)
932 my ($self, $name, $block) = @_;
942 $block = pad($block, 1) if $PRETTY;
949 $block
958 # macro($name, $block, \@args)
962 my ($self, $ident, $block, $args) = @_;
963 $block = pad($block, 2) if $PRETTY;
985 $block
1004 $block