File Coverage

blib/lib/PDL/PP/XS.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 7 7 100.0


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