File Coverage

blib/lib/Text/MicroMason/PassVariables.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	5	6	83.3
condition	1	2	50.0
subroutine	6	6	100.0
pod	3	4	75.0
total	42	47	89.3

package Text::MicroMason::PassVariables;

use strict;

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

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

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

# Text elements used for subroutine assembly
sub assembler_rules {
    my %rules =  ((shift)->NEXT('assembler_rules', @_),
                  eval_start => 'package __PACKAGE__;',
                  no_strict => 'no strict;',
                  init_args => 'local %__PACKAGE__:: = %__PACKAGE__::;' . "\n" .
                      'my %ARGS = @_;' . "\n" .
			  '$m->install_args_hash( "__PACKAGE__", \%ARGS );',
                  );

    $rules{template} = ['$eval_start', '$no_strict', @{$rules{template}}];

    return %rules;
}

sub assemble {
  my $self = shift;
  my $code = $self->NEXT('assemble', @_);
  my $package = $self->{package} || 'Text::MicroMason::Commands';
  $code =~ s/(\S)__PACKAGE__/$1$package/g;
  $code =~ s/__PACKAGE__(\S)/$package$1/g;
  return $code;
}

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

# $mason->install_args_hash( $package, $hash_ref )
sub install_args_hash {
  my ($self, $dest, $hash) = @_;
  foreach my $name (keys %$hash) {
    my $val = $hash->{$name};
    my $sym = $dest . "::" . $name;
    no strict 'refs';
    # This code is cloned from Text::Template
    local *SYM = *{$sym};
    if (! defined $val) {
      delete ${"${dest}::"}{$name};
    } elsif (ref $val) {
      *SYM = $val;
    } else {
      *SYM = \$val;
    }
  }
}

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

1;

__END__