File Coverage

blib/lib/Module/Quote.pm
Criterion Covered Total %
statement 23 23 100.0
branch 3 4 75.0
condition 1 2 50.0
subroutine 6 6 100.0
pod n/a
total 33 35 94.2


line stmt bran cond sub pod time code
1             package Module::Quote;
2              
3 2     2   53792 use 5.008;
  2         10  
  2         86  
4 2     2   15 use strict;
  2         2  
  2         69  
5 2     2   10 use warnings;
  2         92  
  2         116  
6              
7             BEGIN {
8 2     2   4 $Module::Quote::AUTHORITY = 'cpan:TOBYINK';
9 2         494 $Module::Quote::VERSION = '0.001';
10             }
11              
12             sub import
13             {
14 2     2   19 my $me = shift;
15 2 100       13 @_ = qw(qm) unless @_;
16            
17 2         2019 require Module::Hash;
18 2         14311 require PerlX::QuoteOperator;
19            
20 2         153065 while (@_)
21             {
22 3         90 my $name = shift;
23 3 50       6 my %args = %{ ref $_[0] ? shift : {} };
  3         17  
24            
25 3   50     23 my $emulate = delete $args{emulate} || 'qq';
26 3         24 my $mh = "Module::Hash"->new(%args);
27            
28             "PerlX::QuoteOperator"->new->import($name, {
29             -emulate => $emulate,
30             -parser => 1,
31 2     2   49831 -with => sub ($) { $mh->use(@_) },
32 3         51 }, scalar caller);
33             }
34             }
35              
36             1
37             __END__