File Coverage

blib/lib/Devel/bt.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch	0	4	0.0
condition	0	3	0.0
subroutine	7	9	77.7
pod	0	2	0.0
total	24	41	58.5

use strict;
use warnings;

package Devel::bt;
BEGIN {
  $Devel::bt::AUTHORITY = 'cpan:FLORA';
}
{
  $Devel::bt::VERSION = '0.06';
}
# ABSTRACT: Automatic gdb backtraces on errors


use XSLoader;
use Carp 'croak';
use File::Which 'which';

XSLoader::load(
    __PACKAGE__,
    # we need to be careful not to touch $VERSION at compile time, otherwise
    # DynaLoader will assume it's set and check against it, which will cause
    # fail when being run in the checkout without dzil having set the actual
    # $VERSION
    exists $Devel::bt::{VERSION} ? ${ $Devel::bt::{VERSION} } : (),
);

sub DB::DB { }

sub find_gdb { which 'gdb' }

sub import {
    my ($class, %args) = @_;

    my $gdb = exists $args{gdb} ? $args{gdb} : $class->find_gdb();
    croak 'Unable to locate gdb binary'
        unless defined $gdb && -x $gdb;

    register_segv_handler($gdb, $^X);
    return;
}

1;

__END__