use warnings;
use parent qw/WWW::SearchResult/;
-our $VERSION = '0.001001';
+our $VERSION = '0.002';
use HTML::TreeBuilder;
use URI::Escape qw/uri_escape/;
my $self = $class->SUPER::new(@_);
$self->{parsed} = 0;
- no strict 'refs';
- $self->$_($args{$_}) for qw/title verified age size seeders leechers infohash/;
+ $self->_elem($_ => $args{$_}) for qw/title verified age size seeders leechers infohash/;
$self->{ua} = $args{ua};
$self->add_url("https://torrentz.eu/$args{infohash}");
$self
my $trackers = $tree->look_down(class => 'trackers');
$self->{trackers} //= [];
for my $tracker ($trackers->find('dl')) {
- push $self->{trackers}, $tracker->find('a')->as_text;
+ push @{$self->{trackers}}, $tracker->find('a')->as_text;
}
my $files = $tree->look_down(class => 'files');
} else {
$child->objectify_text;
my ($filename, $size) = $child->find('~text');
- push $self->{files}, +{
+ push @{$self->{files}}, +{
path => $prefix.$filename->attr('text'),
size => $size->attr('text')
}
=head1 NAME
-WWW::Search::Torrentz::Result - a result of a WWW::Search::Torrentz search
+WWW::Search::Torrentz::Result - [DEPRECATED] a result of a WWW::Search::Torrentz search
=head1 SYNOPSIS