use 5.006001;
use strict;
use warnings;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
#use Carp qw(croak);
require ExtUtils::ParseXS;
# add a mapping
$typemap->add_typemap(ctype => 'NV', xstype => 'T_NV');
- $typemap->add_inputmap (xstype => 'T_NV', code => '$var = ($type)SvNV($arg);');
- $typemap->add_outputmap(xstype => 'T_NV', code => 'sv_setnv($arg, (NV)$var);');
- $typemap->add_string(string => $typemapstring); # will be parsed and merged
+ $typemap->add_inputmap(
+ xstype => 'T_NV', code => '$var = ($type)SvNV($arg);'
+ );
+ $typemap->add_outputmap(
+ xstype => 'T_NV', code => 'sv_setnv($arg, (NV)$var);'
+ );
+ $typemap->add_string(string => $typemapstring);
+ # will be parsed and merged
# remove a mapping (same for remove_typemap and remove_outputmap...)
$typemap->remove_inputmap(xstype => 'SomeType');
'T_OUT' => ' {
GV *gv = newGVgen("$Package");
if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
- sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
+ sv_setsv(
+ $arg,
+ sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))
+ );
else
$arg = &PL_sv_undef;
}
dist/bignum/lib/bigrat.pm Apparent broken link 1
dist/constant/lib/constant.pm Apparent broken link 2
dist/data-dumper/dumper.pm ? Should you be using L<...> instead of 1
-dist/extutils-parsexs/lib/extutils/typemaps.pm Verbatim line length including indents exceeds 80 by 4
dist/extutils-parsexs/lib/extutils/typemaps/outputmap.pm Verbatim line length including indents exceeds 80 by 1
dist/extutils-parsexs/lib/perlxs.pod Verbatim line length including indents exceeds 80 by 4
dist/extutils-parsexs/lib/perlxstut.pod Verbatim line length including indents exceeds 80 by 9