File Coverage

blib/lib/ThreatNet/Filter/Null.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package ThreatNet::Filter::Null;
2              
3             =pod
4              
5             =head1 NAME
6              
7             ThreatNet::Filter::Null - ThreatNet Filter to discard all messages
8              
9             =head1 DESCRIPTION
10              
11             The default C object returns true for all messages
12             passed to its C method, and can thus be used as a logical "true"
13             filter object if needed.
14              
15             C is a utility class which provides the logical
16             opposite of this. Calls to the C method for Null filter objects
17             B return false.
18              
19             Its the bit bucket of the ThreatNet Filter world.
20              
21             =head1 METHODS
22              
23             Methods are as for the parent L class.
24              
25             =cut
26              
27 2     2   8867 use strict;
  2         3  
  2         77  
28 2     2   10 use Params::Util '_INSTANCE';
  2         5  
  2         99  
29 2     2   11 use base 'ThreatNet::Filter';
  2         4  
  2         214  
30              
31 2     2   9 use vars qw{$VERSION};
  2         4  
  2         99  
32             BEGIN {
33 2     2   138 $VERSION = '0.20';
34             }
35              
36             sub keep {
37 5 100   5 1 1120 _INSTANCE($_[1], 'ThreatNet::Message') ? '' : undef;
38             }
39              
40             1;
41              
42             =pod
43              
44             =head1 SUPPORT
45              
46             All bugs should be filed via the bug tracker at
47              
48             L
49              
50             For other issues, or commercial enhancement and support, contact the author
51              
52             =head1 AUTHORS
53              
54             Adam Kennedy Eadamk@cpan.orgE
55              
56             =head1 SEE ALSO
57              
58             L, L
59              
60             =head1 COPYRIGHT
61              
62             Copyright (c) 2005 Adam Kennedy. All rights reserved.
63             This program is free software; you can redistribute
64             it and/or modify it under the same terms as Perl itself.
65              
66             The full text of the license can be found in the
67             LICENSE file included with this module.
68              
69             =cut