File Coverage

blib/lib/Devel/Confess/Patch/UseDataDumpIfSmall.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	0	1	0.0
total	19	25	76.0

package Devel::Confess::Patch::UseDataDumpIfSmall;

use 5.010001;
use strict;
no warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-02-16'; # DATE
our $DIST = 'Devel-Confess-Patch-UseDataDumpIfSmall'; # DIST
our $VERSION = '0.001'; # VERSION

use Module::Patch;
use base qw(Module::Patch);

our %config;

sub patch_data {
    return {
        v => 3,
        config => {
        },
        patches => [
            {
                action      => 'replace',
                #mod_version => qr/^/,
                sub_name    => '_ref_formatter',
                code        => sub {
                    require Data::Dump::IfSmall;

                    #local $SIG{__WARN__} = sub {};
                    #local $SIG{__DIE__} = sub {};
                    Data::Dump::IfSmall::dump($_[0]);
                },
            },
        ],
   };
}

1;
# ABSTRACT: Use Data::Dump::IfSmall format refs

__END__