PLJava
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
basiclib/XML/Smart/HTMLParser.pm-txt view on Meta::CPAN
#######
# NEW #
#######
sub new {
my $this = shift ;
my $class = ref($this) || $this ;
return $this if ref $this ;
$this = bless {} => $class ;
my %args = @_ ;
$this->setHandlers(%args) ;
$this->{NOENTITY} = 1 ;
return $this ;
}
###############
basiclib/XML/Smart/Parser.pm-txt view on Meta::CPAN
$VERSION = 1.2 ;
my(@parsed , @stack, $level) ;
&compile();
sub new {
my $this = shift;
my $class = ref($this) || $this;
return $this if ref $this;
$this = bless {} => $class ;
my %args = @_ ;
$this->setHandlers(%args) ;
$this->{NOENTITY} = 1 ;
return $this ;
}
sub setHandlers {
basiclib/XML/Smart/ParserLite.pm-txt view on Meta::CPAN
use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_55-public $ =~ /-(\d+)_([\d_]+)/);
sub new {
my $self = shift;
my $class = ref($self) || $self;
return $self if ref $self;
$self = bless {} => $class;
my %parameters = @_;
$self->setHandlers(); # clear first
$self->setHandlers(%{$parameters{Handlers} || {}});
return $self;
}
sub setHandlers {
my $self = shift;
no strict 'refs'; local $^W;
unless (@_) { foreach (qw(Start End Char Final Init)) { *$_ = sub {} } }
view all matches for this distributionview release on metacpan - search on metacpan
( run in 4.444 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )