File Coverage

blib/lib/Text/MicroMason/TextTemplate.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	28	28	100.0

package Text::MicroMason::TextTemplate;

use Text::MicroMason::PassVariables;
@ISA = 'Text::MicroMason::PassVariables';

use strict;

use Text::Balanced 'extract_multiple', 'extract_codeblock';

######################################################################

my $lexer_rule = [ { TTBlock => sub { extract_codeblock($_[0],'{}','') } } ];

# @tokens = $mason->lex( $template );
sub lex {
  my $self = shift;
  map { ( ! ref) ? ( text => $_ ) : ( expr => substr($$_, 1, -1) ) }
				extract_multiple( shift(), $lexer_rule );
}

######################################################################

# Text elements used for subroutine assembly
sub assembler_rules {
  (shift)->NEXT('assembler_rules', @_),

  init_output => 'my $OUT = ""; my $_out = sub {$OUT .= join "", @_};',
  add_output => '  $OUT .= join "", ',
  return_output => '$OUT;',
}

######################################################################

my $seqno = 0;
sub prepare {
  my $self = shift;
  $self->NEXT('prepare', @_,
	$self->{package} ? () : ( package => __PACKAGE__ . '::GEN' . $seqno++ )
  )
}

######################################################################

1;

__END__