use warnings;
use parent qw/Class::Accessor::Fast/;
-our $VERSION = '0.001002';
+our $VERSION = '0.002';
use Date::Parse qw/str2time/;
use JSON::MaybeXS qw/decode_json/;
$self = $self->SUPER::new(@args);
$self->{torrent_hash} = uc $self->hash;
$self->{upload_date} = str2time $self->date, 'UTC';
- $self->{file_names} = $self->file_info->[0]->{file_names};
- $self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+ if ($self->file_info) {
+ $self->{file_names} = $self->file_info->[0]->{file_names};
+ $self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+ }
$self
}