File Coverage

blib/lib/Text/MicroMason/AllowGlobals.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	8	75.0
condition			n/a
subroutine	6	6	100.0
pod	4	4	100.0
total	44	46	95.6

package Text::MicroMason::AllowGlobals;

use strict;
use Carp;

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

sub allow_globals {
  my $self = shift;
  my $globals = $self->{allow_globals};
  my @current = ref( $globals ) ? @$globals :
  		! defined( $globals ) ? () :
		split ' ' , $globals;

  if ( scalar @_ ) {
    my %once_each;
    @current = grep { ! ( $once_each{$_} ++ ) } @current, @_;
    $self->{allow_globals} = \@current;
  }

  wantarray ? @current : join(' ', @current);
}

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

sub set_globals {
  my ( $self, %globals ) = @_;

  my @globals = keys %globals;
  $self->allow_globals( @globals );

  my $sub = join( "\n",
      $self->allow_globals_statement(),
      " sub { ",
	map( {
	    my $var = $_;  $var =~ s/^[\@\%]/*/; $var =~ s/^(\w)/\$$1/;
	    "$var = \$_[0]{'$_'};"
	  } @globals ),
      " }"
  );

  $self->eval_sub( $sub )->( \%globals )
}

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

sub allow_globals_statement {
  my $self = shift;
  "use vars qw(" . $self->allow_globals() . ");"
}

sub assemble {
  my $self = shift;
  $self->NEXT('assemble', once => $self->allow_globals_statement(), @_);
}

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

1;

__END__