File Coverage

blib/lib/XML/SAX/Tap.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	26	28	92.8

package XML::SAX::Tap;
{
  $XML::SAX::Tap::VERSION = '0.46';
}
# ABSTRACT: Tap a 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 = (
        [ "Intake", "XML::Filter::Tee"  ],
        map( [ "Stage_" . $stage_number++, $_ ], @_ ),
    );

    push @{$machine_spec[$_]}, "Stage_" . $_
        for 0..$#machine_spec-1 ;

    ## Pushing this last means that the Exhaust will get
    ## events after Stage_0
    push @{$machine_spec[0]}, "Exhaust";

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



1;

__END__