File Coverage

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

Criterion	Covered	Total	%
statement	14	18	77.7
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	1	0.0
total	19	28	67.8

package Devel::Confess::Patch::UseDataDumpSkipObjects;

use 5.010001;
use strict;
no warnings;

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

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

our %config;

sub patch_data {
    return {
        v => 3,
        config => {
            -class_pattern => {
                schema => 're*',
            },
        },
        patches => [
            {
                action      => 'replace',
                #mod_version => qr/^/,
                sub_name    => '_ref_formatter',
                code        => sub {
                    require Data::Dump::SkipObjects;
                    $Data::Dump::SkipObjects::CLASS_PATTERN = qr/$config{-class_pattern}/ if defined $config{-class_pattern};

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

1;
# ABSTRACT: Use Data::Dump::SkipObjects to stringify some objects

__END__