File Coverage

blib/lib/ExtUtils/Typemaps/IntObj.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	21	61.9

package ExtUtils::Typemaps::IntObj;
$ExtUtils::Typemaps::IntObj::VERSION = '0.004';
use strict;
use warnings;

use parent 'ExtUtils::Typemaps';

my $output = <<'END';
	{
		sv_setref_uv($arg, %s, (UV)$var);
		SvREADONLY_on(SvRV($arg));
	}
END

sub new {
	my $class = shift;

	my $self = $class->SUPER::new(@_);

	$self->add_inputmap(xstype => 'T_INTOBJ', code => <<'END');
    {
		SV * sv = $arg;
		if (SvROK(sv) && sv_derived_from(sv, \"$ntype\"))
			$var = ($type)SvUV(SvRV(sv));
		else
			croak(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\");
    }
END
	$self->add_inputmap(xstype => 'T_INTREF', code => <<'END');
    {
		SV * sv = $arg;
		if (SvROK(sv) && SvIOK(SvRV(sv)))
			$var = ($type)SvUV(SvRV(sv));
		else
			croak(\"%s: %s is not a reference\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\");
    }
END

	$self->add_outputmap(xstype => 'T_INTOBJ', code => sprintf $output, '\\"$ntype\\"');
	$self->add_outputmap(xstype => 'T_INTREF', code => sprintf $output, 'NULL');

	return $self;
}

1;

# ABSTRACT: Typemap for storing int-like handles as objects

__END__