File Coverage

blib/lib/Perl/Critic/Policy/Freenode/IndirectObjectNotation.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              
2             use strict;
3 1     1   508 use warnings;
  1         5  
  1         24  
4 1     1   4  
  1         2  
  1         20  
5             use parent 'Perl::Critic::Policy::Community::IndirectObjectNotation';
6 1     1   5  
  1         2  
  1         4  
7             our $VERSION = 'v1.0.3';
8              
9              
10 0     0 1   1;
11              
12             =head1 NAME
13              
14             Perl::Critic::Policy::Freenode::IndirectObjectNotation - Don't call methods
15             indirectly
16              
17             =head1 DESCRIPTION
18              
19             Legacy C<freenode> theme policy alias.
20              
21             =head1 POLICY MOVED
22              
23             This policy has been moved to L<Perl::Critic::Community>.
24              
25             =head1 AFFILIATION
26              
27             This policy is part of L<Perl::Critic::Freenode>.
28              
29             =head1 CONFIGURATION
30              
31             This policy can be configured, in the same way as its parent policy
32             L<Perl::Critic::Policy::Objects::ProhibitIndirectSyntax>, to attempt to forbid
33             additional method names from being called indirectly. Be aware this may lead to
34             false positives as it is difficult to detect indirect object notation by static
35             analysis. The C<new> subroutine is always forbidden in addition to these.
36              
37             [Freenode::IndirectObjectNotation]
38             forbid = create destroy
39              
40             =head1 AUTHOR
41              
42             Dan Book, C<dbook@cpan.org>
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             Copyright 2015, Dan Book.
47              
48             This library is free software; you may redistribute it and/or modify it under
49             the terms of the Artistic License version 2.0.
50              
51             =head1 SEE ALSO
52              
53             L<Perl::Critic>, L<Perl::Critic::Community>