File Coverage

blib/lib/Devel/DTrace/Provider.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	1	2	50.0
total	33	40	82.5

package Devel::DTrace::Provider;

use 5.008;
use strict;
use warnings;
use vars qw/ $DTRACE_AVAILABLE /;

use JSON;

BEGIN {
	our $VERSION = '1.11';
	require XSLoader;
	eval {
            XSLoader::load('Devel::DTrace::Provider', $VERSION);
	};

	$DTRACE_AVAILABLE = 1;
	if ($@ && $@ =~ /Can't locate loadable object/) {
		# No object - assume it wasn't built, and we should noop everything.
		$DTRACE_AVAILABLE = 0;
	}

	sub DTRACE_AVAILABLE { $DTRACE_AVAILABLE };
}

sub probe {
    my ($self, $name, $function, @types) = @_;
    $self->add_probe($name, $function, \@types);
}

1;

__END__