File Coverage

blib/lib/The/Net.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package The::Net;
2              
3 1     1   26551 use 5.006;
  1         12  
  1         49  
4              
5 1     1   7 use strict;
  1         1  
  1         34  
6 1     1   4 use warnings;
  1         12  
  1         38  
7 1     1   4 no warnings 'syntax';
  1         1  
  1         405  
8              
9             our $VERSION = '2009110702';
10              
11             push @INC => sub {
12             require LWP::Simple;
13             require IO::File;
14             require Fcntl;
15              
16             my $url = pop;
17              
18             return unless $url =~ m{^\w+://};
19              
20             my $document = LWP::Simple::get ($url) or die "Failed to fetch $url: $!\n";
21              
22             my $fh = IO::File -> new_tmpfile or die "Failed to create temp file: $!\n";
23             $fh -> print ($document) or die "Failed to print: $!\n";
24             $fh -> seek (0, Fcntl::SEEK_SET()) or die "Failed to seek: $!\n";
25              
26             $fh;
27             };
28              
29              
30             1;
31              
32             __END__