view release on metacpan or  search on metacpan

t/02_get_file.t  view on Meta::CPAN

use HTTP::Tiny;
use HTTP::Tiny::FileProtocol;

my $http = HTTP::Tiny->new;
isa_ok $http, 'HTTP::Tiny';

my $file = File::Spec->rel2abs(
    File::Spec->catfile( dirname( __FILE__ ), 'test.txt' ),
);

my $content = do{ local (@ARGV, $/) = $file; <> };
my $response = $http->get('file://' . $file);

delete $response->{url};

my $content_length;
{
    use bytes;
    $content_length = length $content;
}

t/03_get_xlsx.t  view on Meta::CPAN

use HTTP::Tiny;
use HTTP::Tiny::FileProtocol;

my $http = HTTP::Tiny->new;
isa_ok $http, 'HTTP::Tiny';

my $file = File::Spec->rel2abs(
    File::Spec->catfile( dirname( __FILE__ ), 'ascii_table.xlsx' )
);

my $content = do{ local (@ARGV, $/) = $file; <> };
my $response = $http->get('file://' . $file);

delete $response->{url};

my $content_length;
{
    use bytes;
    $content_length = length $content;
}