File Coverage

blib/lib/Text/MicroMason/StoreOne.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	7	8	87.5
condition			n/a
subroutine	3	3	100.0
pod	3	3	100.0
total	27	28	96.4

package Text::MicroMason::StoreOne;

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

sub create {
  my ( $class, %options ) = @_;
  my @compile;
  if ( my $file = delete $options{filename} ) {
    @compile = ( 'file' => $file );
  } elsif ( my $string = delete $options{text} ) {
    @compile = ( 'text' => $string );
  }
  my $self = $class->NEXT('create', %options);
  $self->compile( @compile ) if @compile;
  $self;
}

sub compile {
  my $self = shift;
  my $sub = $self->NEXT('compile', @_);
  $self->{last_compile} = $sub;
}

sub execute_again {
  my $self = shift;
  my $sub = $self->{last_compile}
	or $self->croak_msg("No template has been compiled yet");
  &$sub( @_ );
}

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

1;

__END__