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   152910 use strict;
  2         6  
  2         58  
3 2     2   11 use warnings;
  2         4  
  2         56  
4 2     2   1826 use PerlX::QuoteOperator ();
  2         243639  
  2         47  
5 2     2   855 use LWP::Simple ();
  2         148648  
  2         340  
6              
7             our $VERSION = '1.02';
8              
9             sub import {
10 3     3   349 my ($class, $name) = @_;
11            
12 3         8 my $caller = caller;
13 3     4   17 my $code = sub ($) { LWP::Simple::get( $_[0] ) };
  4         13472756  
14              
15 3         35 my $ctx = PerlX::QuoteOperator->new;
16 3   100     57 $ctx->import( $name || 'qURL', { -emulate => 'qq', -with => $code }, $caller );
17             }
18              
19             1;
20              
21             __END__