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   650 use strict;
  2         3  
  2         70  
4 2     2   8 use warnings;
  2         3  
  2         47  
5 2     2   8 use Module::New::File;
  2         2  
  2         11  
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__