File Coverage

blib/lib/Syntax/Feature/Void.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::Void;
2              
3 4     4   145135 use strict;
  4         13  
  4         815  
4 4     4   25 use warnings;
  4         8  
  4         117  
5              
6 4     4   3722 use version; our $VERSION = qv('v1.0.0');
  4         10428  
  4         24  
7              
8 4     4   4007 use Devel::CallParser qw( );
  4         16676  
  4         151  
9 4     4   34 use XSLoader qw( );
  4         7  
  4         731  
10              
11             XSLoader::load('Syntax::Feature::Void', $VERSION);
12              
13             sub import {
14 3     3   45327 require Lexical::Sub;
15 3         11950 Lexical::Sub->import( void => \&void );
16             }
17              
18             sub unimport {
19 2     2   400 require Lexical::Sub;
20 2         45 Lexical::Sub->unimport( void => \&void );
21             }
22              
23             *install = \&import; # For syntax.pm
24             *uninstall = \&unimport; # For syntax.pm
25              
26             1;
27              
28              
29             __END__