File Coverage

blib/lib/Text/MicroMason/PostProcess.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	9	10	90.0
condition	3	6	50.0
subroutine	5	5	100.0
pod	2	3	66.6
total	44	50	88.0

package Text::MicroMason::PostProcess;

use strict;
use Carp;

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

sub assembler_rules {
  my $self = shift;
  my %rules = $self->NEXT('assembler_rules', @_);
  $rules{return_output} = "\$m->post_process( $rules{return_output} )";
  %rules;
}

sub post_processors {
  my $self = shift;
  my $funcs = $self->{post_process};
  my @funcs = ref($funcs) eq 'ARRAY' ? @$funcs : $funcs ? $funcs : ();
  if ( scalar @_ ) {
    @funcs = ( $#_ == 0 and ref($_[0]) eq 'ARRAY' ) ? @{ $_[0] } : (@funcs, @_);
    $self->{post_process} = [ @funcs ];
  }
  return @funcs;
}

sub post_process {
  my $self = shift;
  local $_ = shift;
  foreach my $func ( $self->post_processors ) {
    my $p = prototype($func);
    if ( defined $p and ! length $p ) {
      &$func;
    } else {
      $_ = &$func( $_ );
    }
  }
  $_;
}

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

1;

__END__