gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/lib/IncludeTester.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package IncludeTester;
use strict;

sub print_xs {
  print <<'HERE';

int
sum(a, b)
    int a
    int b
  CODE:
    RETVAL = a + b;
  OUTPUT:
    RETVAL

HERE
}

1;