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 7f0b5b402864ae1418793f0e5f7e75ae164786cb..6ab9955661d0f730f5d39b68cada984f0cea01ce 100644 (file)
--- a/lib/WWW/Search/Torrentz/Result.pm
+++ b/lib/WWW/Search/Torrentz/Result.pm
@@ -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