File Coverage

blib/lib/HTML/Parser/Stacked.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	27	100.0

# $Id: /mirror/perl/HTML-Parser-Stacked/trunk/lib/HTML/Parser/Stacked.pm 8903 2007-11-10T17:37:37.203788Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki
# All rights reserved.

package HTML::Parser::Stacked;
use strict;
use warnings;
use base qw(HTML::Parser);
our $VERSION = '0.00001';

sub new
{
    my $class = shift;
    my %args  = @_;
    my (%handlers, %pargs);
    while (my($name, $spec) = each %args) {
        $handlers{ ($name =~ /^(.+)_h$/)[0] } = $spec;
        $pargs{ $name } = [ \&_dispatch, "self,event,$spec->[1]" ];
    }
    my $self = $class->SUPER::new(%pargs);
    $self->{stacked_parser}{handlers} = \%handlers;
    return $self;
}

sub _dispatch
{
    my ($self, $event, @args) = @_;
    my $cb_list = $self->{stacked_parser}{handlers}{$event}->[0];
    $_->(@args) for @$cb_list;
}

1;

__END__