File Coverage

blib/lib/XML/SAX/Manifold.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	4	50.0
condition	3	6	50.0
subroutine	4	4	100.0
pod	1	1	100.0
total	27	32	84.3

package XML::SAX::Manifold;
{
  $XML::SAX::Manifold::VERSION = '0.46';
}
# ABSTRACT: Multipass processing of documents


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

use strict;
use Carp;


sub new {
    my $proto = shift;
    my $class = ref $proto || $proto;
    my @options_hash_if_present = @_ && ref $_[-1] eq "HASH" ? pop : () ;

    my $channel_num = 0;

    my $self = $proto->SUPER::new(
        [ Intake => "XML::Filter::Distributor", (1..$#_+1) ],
        map( [ "Channel_" . $channel_num++ => $_ => qw( Merger ) ], @_ ),
        [ Merger => "XML::Filter::Merger" => qw( Exhaust ) ],
        @options_hash_if_present
    );

    my $distributor = $self->find_part( 0 );
    $distributor->set_aggregator( $self->find_part( -1 ) )
        if $distributor->can( "set_aggregator" );

    return $self;
}


1;

__END__