Lines Matching defs:default
246 # assign(\@ident, $value, $default) foo = bar
250 my ($self, $var, $val, $default) = @_;
260 $val .= ', 1' if $default;
332 # default(\@setlist) [% DEFAULT foo = bar, baz = qux %]
335 sub default {
588 my ($match, $block, $default);
591 $default = pop @case;
607 $caseblock .= $default
608 if defined $default;
636 my ($match, $mblock, $default, $final, $n);
649 $default ||= $catch->[1];
661 if ($default) {
662 $default = pad($default, 1) if $PRETTY;
663 $default = "else {\n # DEFAULT\n$default\n \$_tt_error = '';\n}";
666 $default = '# NO DEFAULT';
668 $default = pad($default, 2) if $PRETTY;
688 $default