File Coverage

blib/lib/Devel/Confess/Patch/UseDataDumpHTMLPopUp.pm
Criterion Covered Total %
statement 17 23 73.9
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 1 0.0
total 23 32 71.8


line stmt bran cond sub pod time code
1             package Devel::Confess::Patch::UseDataDumpHTMLPopUp;
2              
3 1     1   433511 use 5.010001;
  1         4  
4 1     1   4 use strict;
  1         2  
  1         21  
5 1     1   8 no warnings;
  1         1  
  1         54  
6              
7 1     1   526 use Module::Patch;
  1         17648  
  1         8  
8 1     1   66 use base qw(Module::Patch);
  1         1  
  1         240  
9              
10             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
11             our $DATE = '2024-03-17'; # DATE
12             our $DIST = 'Devel-Confess-Patch-UseDataDumpHTMLPopUp'; # DIST
13             our $VERSION = '0.001'; # VERSION
14              
15             our %config;
16              
17             sub patch_data {
18             return {
19             v => 3,
20             patches => [
21             {
22             action => 'replace',
23             #mod_version => qr/^/,
24             sub_name => '_ref_formatter',
25             code => sub {
26 0     0     require Data::Dump::HTML::PopUp;
27 0           local $SIG{__WARN__} = sub {};
28 0           local $SIG{__DIE__} = sub {};
29 1     1   5 no warnings 'once';
  1         2  
  1         88  
30 0           local $Data::Dump::HTML::PopUp::OPT_REMOVE_PRAGMAS = 1;
31 0           Data::Dump::HTML::PopUp::dump($_[0]);
32             },
33             },
34 0     0 0   ],
35             };
36             }
37              
38             1;
39             # ABSTRACT: Use Data::Dump::HTML::PopUp to stringify reference
40              
41             __END__