File Coverage

blib/lib/Devel/Probe.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	11	14	78.5
condition	4	6	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	57	63	90.4

package Devel::Probe;
use strict;
use warnings;

use XSLoader;

our $VERSION = '0.000004';
XSLoader::load( 'Devel::Probe', $VERSION );

sub import {
    my ($class) = @_;
    Devel::Probe::install();
}

my @probe_type_names = (
    'none',
    'once',
    'permanent',
);
my %probe_type_name_to_type = map { $probe_type_names[$_] => $_ }
                              (0..scalar(@probe_type_names)-1);

sub config {
    my ($config) = @_;

    Devel::Probe::disable();
    return unless $config;

    foreach my $action (@{ $config->{actions} }) {
        if ($action->{action} eq 'enable') {
            Devel::Probe::enable();
            next;
        }
        if ($action->{action} eq 'disable') {
            Devel::Probe::disable();
            next;
        }
        if ($action->{action} eq 'dump') {
            Devel::Probe::dump();
            next;
        }
        if ($action->{action} eq 'clear') {
            Devel::Probe::clear();
            next;
        }
        if ($action->{action} eq 'define') {
            my $file = $action->{file};
            next unless $file;

            my $type_name = $action->{type} // 'once';
            my $type = $probe_type_name_to_type{$type_name} // 1;
            foreach my $line (@{ $action->{lines} // [] }) {
                Devel::Probe::add_probe($file, $line, $type);
            }
            next;
        }
    }
}

1;
__END__