File Coverage

blib/lib/Class/XSDestructor.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	2	4	50.0
condition	3	8	37.5
subroutine	6	7	85.7
pod			n/a
total	32	44	72.7

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

package Class::XSDestructor;

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

sub import {
	my $class = shift;
	my ( $package, $methodname );
	if ( 'ARRAY' eq ref $_[0] ) {
		( $package, $methodname ) = @{+shift};
	}
	$package    ||= our($SETUP_FOR) || caller;
	$methodname ||= 'DESTROY';

	my @XS_args = (
		"$package\::$methodname",
		"$package\::DEMOLISHALL",
		"$package\::XSCON_CLEAR_DESTRUCTOR_CACHE",
	);

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

1;

__END__