File Coverage

blib/lib/Module/New/File/XS.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Module::New::File::XS;
2            
3 2     2   639 use strict;
  2         2  
  2         53  
4 2     2   6 use warnings;
  2         1  
  2         36  
5 2     2   6 use Module::New::File;
  2         4  
  2         8  
6            
7             file '{MODULEBASE}.xs' => content { return <<'EOT';
8             #ifdef __cplusplus
9             extern "C" {
10             #endif
11             #include "EXTERN.h"
12             #include "perl.h"
13             #include "XSUB.h"
14             #include "ppport.h"
15             #include "<%= $c->module_base %>.h"
16             #ifdef __cplusplus
17             }
18             #endif
19            
20             MODULE = <%= $c->module %> PACKAGE = <%= $c->module %>
21             EOT
22             };
23            
24             file '{MODULEBASE}.h' => content { return <<'EOT';
25             #ifndef <%= uc $c->module_id %>_H
26             #define <%= uc $c->module_id %>_H 1
27            
28             #endif /* #ifndef <%= uc $c->module_id %>_H */
29             EOT
30             };
31            
32             1;
33            
34             __END__