File Coverage

blib/lib/PerlX/QuoteOperator/URL.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 2 2 100.0
subroutine 6 6 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package PerlX::QuoteOperator::URL;
2 2     2   269832 use strict;
  2         7  
  2         125  
3 2     2   16 use warnings;
  2         5  
  2         92  
4 2     2   1563 use PerlX::QuoteOperator ();
  2         228186  
  2         62  
5 2     2   10460 use LWP::Simple ();
  2         224240  
  2         422  
6              
7             our $VERSION = '1.01';
8              
9             sub import {
10 3     3   508 my ($class, $name) = @_;
11            
12 3         12 my $caller = caller;
13 3     4   18 my $code = sub ($) { LWP::Simple::get( $_[0] ) };
  4         626333  
14              
15 3         42 my $ctx = PerlX::QuoteOperator->new;
16 3   100     73 $ctx->import( $name || 'qURL', { -emulate => 'qq', -with => $code }, $caller );
17             }
18              
19             1;
20              
21             __END__