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   131178 use strict;
  2         4  
  2         99  
3 2     2   12 use warnings;
  2         3  
  2         73  
4 2     2   1395 use PerlX::QuoteOperator ();
  2         211241  
  2         48  
5 2     2   1339 use LWP::Simple ();
  2         230136  
  2         368  
6              
7             our $VERSION = '1.00';
8              
9             sub import {
10 3     3   447 my ($class, $name) = @_;
11            
12 3         9 my $caller = caller;
13 3     3   15 my $code = sub ($) { LWP::Simple::get( $_[0] ) };
  3         42293  
14              
15 3         40 my $ctx = PerlX::QuoteOperator->new;
16 3   100     67 $ctx->import( $name || 'qURL', { -emulate => 'qq', -with => $code }, $caller );
17             }
18              
19             1;
20              
21             __END__