File Coverage

blib/lib/Test/Run/Plugin/ColorFileVerdicts/CanonFailedObj.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Test::Run::Plugin::ColorFileVerdicts::CanonFailedObj;
2              
3 3     3   25 use strict;
  3         8  
  3         102  
4 3     3   17 use warnings;
  3         6  
  3         91  
5              
6             =head1 NAME
7              
8             Test::Run::Plugin::ColorFileVerdicts::CanonFailedObj - a subclass
9             of the ::CanonFailedObj that renders the failed line with colors.
10              
11             =head1 DESCRIPTION
12              
13             This is a subclass of the ::CanonFailedObj that renders the failed line
14             with colors.
15              
16             =cut
17              
18 3     3   36 use Moose;
  3         8  
  3         19  
19              
20              
21             extends(
22             'Test::Run::Plugin::ColorFileVerdicts::ColorBase'
23             );
24              
25             has 'individual_test_file_verdict_colors' =>
26             (is => "rw", isa => "Maybe[HashRef]")
27             ;
28              
29 3     3   19759 use MRO::Compat;
  3         8  
  3         59  
30 3     3   62 use Term::ANSIColor;
  3         7  
  3         510  
31              
32             sub _get_failed_string
33             {
34 3     3   20421 my ($self, $canon) = @_;
35              
36 3         32 my $color = $self->_get_individual_test_file_color("failure");
37              
38 3         22 return color($color)
39             . $self->next::method($canon)
40             . color("reset")
41             ;
42             }
43              
44              
45             =head1 AUTHOR
46              
47             Shlomi Fish, C<< <shlomif at cpan.org> >>
48              
49             =head1 BUGS
50              
51             Please report any bugs or feature requests to
52             C<bug-test-run-plugin-colorfileverdicts at rt.cpan.org>, or through the web interface at
53             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Run-Plugin-ColorFileVerdicts>.
54             I will be notified, and then you'll automatically be notified of progress on
55             your bug as I make changes.
56              
57             =head1 SUPPORT
58              
59             You can find documentation for this module with the perldoc command.
60              
61             perldoc Test::Run::Plugin::ColorFileVerdicts::ColorBase
62              
63             You can also look for information at:
64              
65             =over 4
66              
67             =item * CPAN Ratings
68              
69             L<http://cpanratings.perl.org/d/Test-Run-Plugin-ColorFileVerdicts>
70              
71             =item * RT: CPAN's request tracker
72              
73             L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Run-Plugin-ColorFileVerdicts>
74              
75             =item * MetaCPAN
76              
77             L<http://metacpan.org/releaseTest-Run-Plugin-ColorFileVerdicts>
78              
79             =back
80              
81             =head1 ACKNOWLEDGEMENTS
82              
83             =head1 COPYRIGHT & LICENSE
84              
85             Copyright 2007 Shlomi Fish, all rights reserved.
86              
87             This program is released under the following license: MIT Expat
88              
89             =cut
90              
91             1;