File Coverage

blib/lib/PDLA/PP/XS.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod 0 1 0.0
total 7 8 87.5


line stmt bran cond sub pod time code
1             package PDLA::PP::XS;
2              
3             sub mkproto {
4 2     2 0 8 my($name,$pars) = @_;
5 2         7 my $shortpars = join ',',map {$_->[0]} @$pars;
  2         10  
6 2         7 my $longpars = join "\n",map {"\t".$_->[1]->get_decl($_->[0])} @$pars;
  2         10  
7 2         12 return<
8              
9             void
10             $name($shortpars)
11             $longpars
12             END
13              
14              
15             }
16              
17             1;