view release on metacpan or  search on metacpan

lib/HTTP/CDN.pm  view on Meta::CPAN

195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
 
    return $self->_fileinfodata($self->update($uri));
}
 
sub _fileinfodata {
    my ($self, $fileinfo) = @_;
 
    return $fileinfo->{data} // scalar($fileinfo->{fullpath}->slurp);
}
 
sub update {
    my ($self, $uri) = @_;
 
    die "No URI specified" unless $uri;
 
    my $force_update;
 
    my $fragment = ($uri =~ s/(#.*)//) ? $1 : undef;
 
    my $file = $self->cleanup_uri($uri);