Select Code to Download

/* Mine: */
#define SCPARSE_C
...
    RETVAL = 1;
}
OUTPUT: RETVAL

#!/usr/local/bin/perl
package Parser;
...
    if (!-r $param{filename}) { print "%Error: file not found: $param{
+filename}, stopped";}
    $self->_read_xs($param{filename}, $param{strip_autos}||$self->{str
+ip_autos});
}

#! /usr/local/bin/perl
use ExtUtils::testlib; 
...
package main;
my $sp = Trialparser->new();
$sp->read (filename =>'ExParse.sp');