view release on metacpan or  search on metacpan

lib/XML/Parser/Lite.pm  view on Meta::CPAN

use 5.006;
use strict;
use warnings;

our $VERSION = '0.722';

sub new {
    my $class = shift;

    return $class if ref $class;
    my $self = bless {} => $class;

    my %parameters = @_;
    $self->setHandlers(); # clear first
    $self->setHandlers(%{$parameters{Handlers} || {}});

    return $self;
}

sub setHandlers {
    my $self = shift;