File Coverage

blib/lib/Perl/Critic/Policy/Freenode/WhileDiamondDefaultAssignment.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment;
2              
3 1     1   833 use strict;
  1         2  
  1         32  
4 1     1   6 use warnings;
  1         2  
  1         28  
5              
6 1     1   6 use parent 'Perl::Critic::Policy::Community::WhileDiamondDefaultAssignment';
  1         2  
  1         6  
7              
8             our $VERSION = 'v1.0.1';
9              
10 0     0 1   sub default_themes { 'freenode' }
11              
12             1;
13              
14             =head1 NAME
15              
16             Perl::Critic::Policy::Freenode::WhileDiamondDefaultAssignment - Don't use while
17             with implicit assignment to $_
18              
19             =head1 DESCRIPTION
20              
21             Legacy C<freenode> theme policy alias.
22              
23             =head1 POLICY MOVED
24              
25             This policy has been moved to the C<community> theme and renamed to
26             L<Perl::Critic::Policy::Community::WhileDiamondDefaultAssignment>.
27              
28             =head1 AFFILIATION
29              
30             This policy is part of L<Perl::Critic::Freenode>.
31              
32             =head1 CONFIGURATION
33              
34             This policy is not configurable except for the standard options.
35              
36             =head1 AUTHOR
37              
38             Dan Book, C<dbook@cpan.org>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             Copyright 2015, Dan Book.
43              
44             This library is free software; you may redistribute it and/or modify it under
45             the terms of the Artistic License version 2.0.
46              
47             =head1 SEE ALSO
48              
49             L<Perl::Critic>, L<Perl::Critic::Community>