$self->{torrent_hash} = uc $self->hash;
$self->{upload_date} = str2time $self->date, 'UTC';
if ($self->file_info) {
$self->{torrent_hash} = uc $self->hash;
$self->{upload_date} = str2time $self->date, 'UTC';
if ($self->file_info) {
- $self->{file_names} = $self->file_info->[0]->{file_names};
- $self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+ $self->{file_names} = $self->file_info->{file_names};
+ $self->{file_lengths} = $self->file_info->{file_lengths};
my $ht = WebService::Strike::_ht(); ## no critic (ProtectPrivate)
my $response = $ht->get($url);
return unless $response->{success};
my $ht = WebService::Strike::_ht(); ## no critic (ProtectPrivate)
my $response = $ht->get($url);
return unless $response->{success};
say $t->date; # 1420502400
say $t->uploader; # The_Doctor-
say @{$t->names}; # archlinux-2015.01.01-dual.iso
say $t->date; # 1420502400
say $t->uploader; # The_Doctor-
say @{$t->names}; # archlinux-2015.01.01-dual.iso