File Coverage

blib/lib/Test/Builder/TodoDiag.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Test::Builder::TodoDiag;
2 162     162   1135 use strict;
  162         341  
  162         4802  
3 162     162   864 use warnings;
  162         354  
  162         9538  
4              
5             our $VERSION = '1.302181';
6              
7 162     162   1018 BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
  162         17954  
8              
9 0     0 1 0 sub diagnostics { 0 }
10              
11             sub facet_data {
12 610     610 1 922 my $self = shift;
13 610         1423 my $out = $self->SUPER::facet_data();
14 610         1099 $out->{info}->[0]->{debug} = 0;
15 610         1460 return $out;
16             }
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             Test::Builder::TodoDiag - Test::Builder subclass of Test2::Event::Diag
29              
30             =head1 DESCRIPTION
31              
32             This is used to encapsulate diag messages created inside TODO.
33              
34             =head1 SYNOPSIS
35              
36             You do not need to use this directly.
37              
38             =head1 SOURCE
39              
40             The source code repository for Test2 can be found at
41             F<http://github.com/Test-More/test-more/>.
42              
43             =head1 MAINTAINERS
44              
45             =over 4
46              
47             =item Chad Granum E<lt>exodist@cpan.orgE<gt>
48              
49             =back
50              
51             =head1 AUTHORS
52              
53             =over 4
54              
55             =item Chad Granum E<lt>exodist@cpan.orgE<gt>
56              
57             =back
58              
59             =head1 COPYRIGHT
60              
61             Copyright 2020 Chad Granum E<lt>exodist@cpan.orgE<gt>.
62              
63             This program is free software; you can redistribute it and/or
64             modify it under the same terms as Perl itself.
65              
66             See F<http://dev.perl.org/licenses/>
67              
68             =cut