4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.01'; |
our $VERSION = '0.02'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
699 |
|
|
700 |
my $node = new Search::HyperEstraier::Node; |
my $node = new Search::HyperEstraier::Node; |
701 |
|
|
702 |
|
or optionally with C<url> as parametar |
703 |
|
|
704 |
|
my $node = new Search::HyperEstraier::Node( 'http://localhost:1978/node/test' ); |
705 |
|
|
706 |
=cut |
=cut |
707 |
|
|
708 |
sub new { |
sub new { |
720 |
}; |
}; |
721 |
bless($self, $class); |
bless($self, $class); |
722 |
|
|
723 |
my $args = {@_}; |
if ($#_ == 0) { |
724 |
|
$self->{url} = shift; |
725 |
|
} else { |
726 |
|
my $args = {@_}; |
727 |
|
|
728 |
$self->{debug} = $args->{debug}; |
$self->{debug} = $args->{debug}; |
729 |
warn "## Node debug on\n" if ($self->{debug}); |
warn "## Node debug on\n" if ($self->{debug}); |
730 |
|
} |
731 |
|
|
732 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
733 |
} |
} |
1296 |
|
|
1297 |
if (my @attrs = $cond->attrs) { |
if (my @attrs = $cond->attrs) { |
1298 |
for my $i ( 0 .. $#attrs ) { |
for my $i ( 0 .. $#attrs ) { |
1299 |
push @args,'attr' . ($i+1) . '=' . uri_escape( $attrs[$i] ); |
push @args,'attr' . ($i+1) . '=' . uri_escape( $attrs[$i] ) if ($attrs[$i]); |
1300 |
} |
} |
1301 |
} |
} |
1302 |
|
|