File Coverage

blib/lib/Safe/Isa/XS.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

use 5.008;
use strict qw( vars subs );
use warnings;

package Safe::Isa::XS;

use base qw( XSLoader Exporter );
use Scalar::Util qw( blessed );

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.000_02';
our @EXPORT    = qw( $_call_if_object $_isa $_can $_does $_DOES );

__PACKAGE__->load($VERSION);

for (qw( _isa _can _does _DOES )) {
	${"Safe::Isa::XS::$_"} = \&$_;
}

# Too lazy to write an XS version of this...
our $_call_if_object = sub {
	my ($obj, $method) = (shift, shift);
	return unless blessed($obj);
	return $obj->$method(@_);
};

shift our @ISA;

__END__