File Coverage

blib/lib/Class/XSDelegation.pm

Criterion	Covered	Total	%
statement	23	27	85.1
branch	2	4	50.0
condition	6	14	42.8
subroutine	6	7	85.7
pod			n/a
total	37	52	71.1

use 5.008008;
use strict;
use warnings;
use Class::XSConstructor ();

package Class::XSDelegation;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.023006';

sub import {
	my $class = shift;

	my $package;
	if ( 'SCALAR' eq ref $_[0] ) {
		$package = ${+shift};
	}
	$package ||= our($SETUP_FOR) || caller;

	for my $delegation ( @_ ) {
		my ( $methodname, $handler_slot, $handler_method, $opts ) = @$delegation;
		$opts ||= {};

		my @XS_args = (
			"$package\::$methodname",
			$handler_slot,
			$handler_method,
			$opts->{curry} || $opts->{curried} || undef,
			!!( $opts->{is_accessor}  || $opts->{accessor}  || 0 ),
			!!( $opts->{is_try}       || $opts->{try}       || 0 ),
		);

		if (our $REDEFINE) {
			no warnings 'redefine';
			Class::XSConstructor::install_delegation( @XS_args );
		}
		else {
			Class::XSConstructor::install_delegation( @XS_args );
		}
	}
}

1;

__END__