sub fetch {
my ($self, $path) = @_;
- return HTTP::Tiny->new->get($path) if $path =~ /^http:/s;
+ return HTTP::Tiny->new->get($path)->{content} if $path =~ /^http:/s;
my $docroot = catdir $self->path, 'Contents', 'Resources', 'Documents';
$path = rel2abs $path, $docroot;
scalar read_file $path