File Coverage

blib/lib/Carp/Patch/Config.pm

Criterion	Covered	Total	%
statement	23	48	47.9
branch	0	14	0.0
condition	0	15	0.0
subroutine	8	11	72.7
pod	0	1	0.0
total	31	89	34.8

package Carp::Patch::Config;

use 5.010001;
use strict;
no warnings;

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

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-02-16'; # DATE
our $DIST = 'Carp-Patch-Config'; # DIST
our $VERSION = '0.008'; # VERSION

my @oldvals;
our %config;

sub patch_data {
    return {
        v => 3,
        patches => [
        ],
        config => {
            -MaxArgLen  => {
                schema => 'int*',
            },
            -MaxArgNums => {
                schema => 'int*',
            },
            -Dump => {
                schema => 'str*',
                description => <<'_',

This is not an actual configuration for Carp, but a shortcut for:

    # when value is 0 or 'none'
    $Carp::RefArgFormatter = undef;

    # when value is 1 or 'Data::Dmp'
    $Carp::RefArgFormatter = sub {
        require Data::Dmp;
        Data::Dmp::dmp($_[0]);
    };

    # when value is 2 or 'Data::Dump'
    $Carp::RefArgFormatter = sub {
        require Data::Dump;
        Data::Dump::dump($_[0]);
    };

    # when value is 3 or 'Data::Dump::ObjectAsString'
    $Carp::RefArgFormatter = sub {
        require Data::Dump::ObjectAsString;
        Data::Dump::ObjectAsString::dump($_[0]);
    };

    # when value is 4 or 'Data::Dump::IfSmall'
    $Carp::RefArgFormatter = sub {
        require Data::Dump::IfSmall;
        Data::Dump::IfSmall::dump($_[0]);
    };

_
            },
        },
        after_patch => sub {
            no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict
            no warnings 'numeric';
            my $oldvals = {};
            for my $name (keys %config) {
                (my $carp_config_name = $name) =~ s/\A-//;
                my $carp_config_val  = $config{$name};
                if ($name =~ /\A-?Dump\z/) {
                    $carp_config_name = 'RefArgFormatter';
                    $carp_config_val  =
                        $config{$name} eq '0' || $config{$name} eq 'none' ? undef :
                        $config{$name} == 1   || $config{$name} eq 'Data::Dmp'                  ? sub { require Data::Dmp ; Data::Dmp::dmp  ($_[0]) } :
                        $config{$name} == 2   || $config{$name} eq 'Data::Dump'                 ? sub { require Data::Dump; Data::Dump::dump($_[0]) } :
                        $config{$name} == 3   || $config{$name} eq 'Data::Dump::ObjectAsString' ? sub { require Data::Dump::ObjectAsString; Data::Dump::ObjectAsString::dump($_[0]) } :
                        $config{$name} == 4   || $config{$name} eq 'Data::Dump::IfSmall'        ? sub { require Data::Dump::IfSmall; Data::Dump::IfSmall::dump($_[0]) } :
                        die "Unknown value for -Dump, please choose 0/none, 1/Data::Dmp, 2/Data::Dump, 3/Data::Dump::ObjectAsString, 4/Data::Dump::IfSmall";
                }
                $oldvals->{$carp_config_name} = ${"Carp::$carp_config_name"};
                ${"Carp::$carp_config_name"} = $carp_config_val;
            }
            push @oldvals, $oldvals;
        },
        after_unpatch => sub {
            no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict
            my $oldvals = shift @oldvals or return;
            for (keys %$oldvals) {
                ${"Carp::$_"} = $oldvals->{$_};
            }
        },
   };
}

1;
# ABSTRACT: Set some Carp variables

__END__