File Coverage

blib/lib/Test/Apocalypse/Strict.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of Test-Apocalypse
3             #
4             # This software is copyright (c) 2014 by Apocalypse.
5             #
6             # This is free software; you can redistribute it and/or modify it under
7             # the same terms as the Perl 5 programming language system itself.
8             #
9 38     38   1084767 use strict; use warnings;
  38     38   89  
  38         1343  
  38         169  
  38         47  
  38         1839  
10             package Test::Apocalypse::Strict;
11             $Test::Apocalypse::Strict::VERSION = '1.004';
12             BEGIN {
13 38     38   705 $Test::Apocalypse::Strict::AUTHORITY = 'cpan:APOCAL';
14             }
15              
16             # ABSTRACT: Plugin for Test::Strict
17              
18 38     38   18078 use Test::Strict 0.14;
  38         96606  
  38         189  
19              
20             sub do_test {
21             # Argh, Test::Strict's TEST_SKIP requires full paths!
22 37     37 0 518 my @files = Test::Strict::_all_perl_files();
23 37         709401 @files = grep { /(?:Build\.PL|Makefile\.PL|Build)$/ } @files;
  2923         5624  
24              
25             # Set some useful stuff
26 37         222 local $Test::Strict::TEST_WARNINGS = 1; # to silence "used only once typo warning"
27 37         148 local $Test::Strict::TEST_SKIP = \@files;
28              
29 37         111 local $Test::Strict::TEST_WARNINGS = 1;
30 37         74 local $Test::Strict::TEST_SKIP = \@files;
31              
32             # Run the test!
33 37         370 all_perl_files_ok();
34              
35 37         362407896 return;
36             }
37              
38             1;
39              
40             __END__
41              
42             =pod
43              
44             =encoding UTF-8
45              
46             =for :stopwords Apocalypse Niebur Ryan
47              
48             =for Pod::Coverage do_test
49              
50             =head1 NAME
51              
52             Test::Apocalypse::Strict - Plugin for Test::Strict
53              
54             =head1 VERSION
55              
56             This document describes v1.004 of Test::Apocalypse::Strict - released October 24, 2014 as part of Test-Apocalypse.
57              
58             =head1 DESCRIPTION
59              
60             Encapsulates L<Test::Strict> functionality. We also enable the warnings check.
61              
62             =head1 SEE ALSO
63              
64             Please see those modules/websites for more information related to this module.
65              
66             =over 4
67              
68             =item *
69              
70             L<Test::Apocalypse|Test::Apocalypse>
71              
72             =back
73              
74             =head1 AUTHOR
75              
76             Apocalypse <APOCAL@cpan.org>
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2014 by Apocalypse.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             The full text of the license can be found in the
86             F<LICENSE> file included with this distribution.
87              
88             =head1 DISCLAIMER OF WARRANTY
89              
90             THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
91             APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
92             HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
93             OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
94             THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
95             PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
96             IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
97             ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
98              
99             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
100             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
101             THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
102             GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
103             USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
104             DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
105             PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
106             EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
107             SUCH DAMAGES.
108              
109             =cut