Add perlcritic release test and fix problems

[www-search-torrentz.git] / lib / WWW / Search / Torrentz / Result.pm

diff --git a/lib/WWW/Search/Torrentz/Result.pm b/lib/WWW/Search/Torrentz/Result.pm
index 60aa726629a0f145c609e735f55534ecde7d8268..6ab9955661d0f730f5d39b68cada984f0cea01ce 100644 (file)
--- a/lib/WWW/Search/Torrentz/Result.pm
+++ b/lib/WWW/Search/Torrentz/Result.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use parent qw/WWW::SearchResult/;
 
-our $VERSION = '0.001001';
+our $VERSION = '0.001002';
 
 use HTML::TreeBuilder;
 use URI::Escape qw/uri_escape/;
@@ -15,8 +15,7 @@ sub new{
        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