File Coverage

blib/lib/Text/MicroMason/HTMLMason.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	13	14	92.8
condition			n/a
subroutine	4	4	100.0
pod	3	3	100.0
total	31	32	96.8

package Text::MicroMason::HTMLMason;

use strict;

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

my $re_eol = "(?:\\r\\n|\\r|\\n|\\z)";
my $re_sol = "(?:\\A|(?<=\\r|\\n) )";
my $re_tag = "perl|args|once|init|cleanup|doc|text|expr|file";

# ( $type, $value ) = $mason->lex_token();
sub lex_token {
  # Blocks in <%word> ... <%word> tags.
  /\G \<\%($re_tag)\> (.*?) \<\/\%\1\> $re_eol? /xcogs ? ( $1 => $2 ) :

  # Blocks in <% ... %> tags.
  /\G \<\% ( .*? ) \%\> /xcogs ? ( 'expr' => $1 ) :

  # Blocks in <& ... &> tags.
  /\G \<\& ( .*? ) \&\> /xcogs ? ( 'file' => $1 ) :

  # Lines begining with %
  /\G $re_sol \% ( [^\n\r]* ) $re_eol /xcogs ? ( 'perl' => $1 ) :

  # Things that don't match the above
  /\G ( (?: [^\<\r\n%]+ | \<(?!\%|\&) | (?<=[^\r\n\<])% |
	$re_eol (?:\z|[^\r\n\%\<]|(?=\r\n|\r|\n|\%)|\<[^\%\&]|(?=\<[\%\&]))
	)+ (?: $re_eol +(?:\z|(?=\%|\<\[\%\&])) )?
  ) /xcogs ? ( 'text' => $1 ) :

  # Lexer error
  ()
}

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

# Text elements used for subroutine assembly
sub assembler_rules {
  my $self = shift;
  $self->NEXT('assembler_rules'),
    template => [ qw( @once $sub_start $init_errs $init_output $init_args
		    @init @perl !@cleanup $return_output $sub_end -@doc ) ]
}

sub assemble_args {
  my ( $self, $token ) = @_;
    $token =~ s/^\s*([\$\@\%])(\w+) (?:\s* => \s* ([^\r\n]+))?/
      my $argvar = ($1 eq '$') ? "\$ARGS{$2}" : "$1\{ \$ARGS{$2} }";
      "my $1$2 = exists \$ARGS{$2} ? $argvar : " .
	    ( defined($3) ? "($argvar = $3)" :
	      qq{Carp::croak("no value sent for required parameter '$2'")} ) .
      ";"/gexm;
  return ( 'init' => '($#_ % 2) or Carp::croak("Odd number of parameters passed to sub expecting name/value pairs"); ' . "\n" . $token );
}

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

1;

__END__