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   43207 use 5.008;
  2         7  
  2         64  
4 2     2   8 use strict;
  2         4  
  2         55  
5 2     2   9 use warnings;
  2         7  
  2         91  
6              
7             BEGIN {
8 2     2   3 $Module::Quote::AUTHORITY = 'cpan:TOBYINK';
9 2         397 $Module::Quote::VERSION = '0.002';
10             }
11              
12             sub import
13             {
14 2     2   13 my $me = shift;
15 2 100       11 @_ = qw(qm) unless @_;
16            
17 2         1614 require Module::Hash;
18 2         12109 require PerlX::QuoteOperator;
19            
20 2         110113 while (@_)
21             {
22 3         92 my $name = shift;
23 3 50       6 my %args = %{ ref $_[0] ? shift : {} };
  3         17  
24            
25 3   50     24 my $emulate = delete $args{emulate} || 'qq';
26 3         22 my $mh = "Module::Hash"->new(%args);
27            
28             "PerlX::QuoteOperator"->new->import($name, {
29             -emulate => $emulate,
30             -parser => 1,
31 2     2   55019 -with => sub ($) { $mh->use(@_) },
32 3         49 }, scalar caller);
33             }
34             }
35              
36             1
37             __END__