File Coverage

blib/lib/Syntax/Feature/Loop.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod n/a
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Syntax::Feature::Loop;
2              
3 5     5   444226 use strict;
  5         17  
  5         158  
4 5     5   29 use warnings;
  5         12  
  5         208  
5              
6 5     5   1486 use version; our $VERSION = qv('v1.8.0');
  5         8311  
  5         27  
7              
8 5     5   2013 use Devel::CallParser qw( );
  5         9880  
  5         176  
9 5     5   39 use XSLoader qw( );
  5         9  
  5         683  
10              
11             XSLoader::load('Syntax::Feature::Loop', $VERSION);
12              
13             sub import {
14 4     4   28574 require Lexical::Sub;
15 0           Lexical::Sub->import( loop => \&loop );
16             }
17              
18             sub unimport {
19 0     0     require Lexical::Sub;
20 0           Lexical::Sub->unimport( loop => \&loop );
21             }
22              
23             *install = \&import; # For syntax.pm
24             *uninstall = \&unimport; # For syntax.pm
25              
26             1;
27              
28              
29             __END__