File Coverage

Prototype.xs
Criterion Covered Total %
statement 1 1 100.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 1 1 100.0


line stmt bran cond sub pod time code
1             #include "EXTERN.h"
2             #include "perl.h"
3             #include "XSUB.h"
4              
5             MODULE = Sub::Prototype PACKAGE = Sub::Prototype
6              
7             void
8             set_prototype (code, prototype)
9             CV *code
10             char *prototype
11             CODE:
12 1           sv_setpv ((SV *)code, prototype);