File Coverage

blib/lib/Syntax/Feature/Loop.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Syntax::Feature::Loop;
2              
3 5     5   296202 use strict;
  5         13  
  5         321  
4 5     5   27 use warnings;
  5         9  
  5         135  
5              
6 5     5   5067 use version; our $VERSION = qv('v1.6.0');
  5         16065  
  5         35  
7              
8 5     5   6511 use Devel::CallParser qw( );
  5         51499  
  5         408  
9 5     5   48 use XSLoader qw( );
  5         11  
  5         922  
10              
11             XSLoader::load('Syntax::Feature::Loop', $VERSION);
12              
13             sub import {
14 4     4   41890 require Lexical::Sub;
15 4         17870 Lexical::Sub->import( loop => \&loop );
16             }
17              
18             sub unimport {
19 2     2   221 require Lexical::Sub;
20 2         2086 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__