File Coverage

blib/lib/XML/SAX/Pipeline.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	4	4	100.0
pod	1	1	100.0
total	33	33	100.0

package XML::SAX::Pipeline;
{
  $XML::SAX::Pipeline::VERSION = '0.46';
}
# ABSTRACT: Manage a linear pipeline of SAX processors


use base qw( XML::SAX::Machine );


use strict;
use Carp;


sub new {
    my $proto = shift;
    my $options = @_ && ref $_[-1] eq "HASH" ? pop : {};

    my $stage_number = 0;
    my @machine_spec = map [ "Stage_" . $stage_number++, $_ ], @_;
    push @{$machine_spec[$_]}, $_ + 1 for 0..$#machine_spec-1 ;
    $machine_spec[0]->[0] = "Intake"   if @machine_spec;
    push @{$machine_spec[-1]}, "Exhaust" if @machine_spec;

    return $proto->SUPER::new( @machine_spec, $options );
}


1;

__END__