File Coverage

blib/lib/Test/Run/Plugin/ColorFileVerdicts/ColorBase.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 5 5 100.0
pod n/a
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Test::Run::Plugin::ColorFileVerdicts::ColorBase;
2              
3 3     3   1459 use strict;
  3         10  
  3         79  
4 3     3   14 use warnings;
  3         7  
  3         447  
5              
6             =head1 NAME
7              
8             Test::Run::Plugin::ColorFileVerdicts::ColorBase - common functionality
9             that deals with the color fields for both the main object and the
10             CanonFailedObj.
11              
12             =head1 DESCRIPTION
13              
14             For internal use.
15              
16             =cut
17              
18             sub _get_individual_test_file_verdict_user_set_color
19             {
20 11     11   36 my ($self, $event) = @_;
21              
22             return $self->individual_test_file_verdict_colors() ?
23 11 100       509 $self->individual_test_file_verdict_colors()->{$event} :
24             undef;
25             }
26              
27             sub _get_individual_test_file_color
28             {
29 11     11   46 my ($self, $event) = @_;
30              
31 11   66     56 return $self->_get_individual_test_file_verdict_user_set_color($event)
32             || $self->_get_default_individual_test_file_verdict_color($event);
33              
34             }
35              
36             sub _get_default_individual_test_file_verdict_color
37             {
38 4     4   17 my ($self, $event) = @_;
39              
40 4         35 my %mapping =
41             (
42             "success" => "green",
43             "failure" => "red",
44             "dubious" => "red",
45             );
46 4         34 return $mapping{$event};
47             }
48              
49              
50             =head1 AUTHOR
51              
52             Shlomi Fish, C<< <shlomif at cpan.org> >>
53              
54             =head1 BUGS
55              
56             Please report any bugs or feature requests to
57             C<bug-test-run-plugin-colorfileverdicts at rt.cpan.org>, or through the web interface at
58             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Run-Plugin-ColorFileVerdicts>.
59             I will be notified, and then you'll automatically be notified of progress on
60             your bug as I make changes.
61              
62             =head1 SUPPORT
63              
64             You can find documentation for this module with the perldoc command.
65              
66             perldoc Test::Run::Plugin::ColorFileVerdicts::ColorBase
67              
68             You can also look for information at:
69              
70             =over 4
71              
72             =item * AnnoCPAN: Annotated CPAN documentation
73              
74             L<http://annocpan.org/dist/Test-Run-Plugin-ColorFileVerdicts>
75              
76             =item * CPAN Ratings
77              
78             L<http://cpanratings.perl.org/d/Test-Run-Plugin-ColorFileVerdicts>
79              
80             =item * RT: CPAN's request tracker
81              
82             L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Run-Plugin-ColorFileVerdicts>
83              
84             =item * MetaCPAN
85              
86             L<http://metacpan.org/releaseTest-Run-Plugin-ColorFileVerdicts>
87              
88             =back
89              
90             =head1 ACKNOWLEDGEMENTS
91              
92             =head1 COPYRIGHT & LICENSE
93              
94             Copyright 2007 Shlomi Fish, all rights reserved.
95              
96             This program is released under the following license: MIT X11
97              
98             =cut
99              
100             1;
101