File Coverage

blib/lib/Net/Connection/Match/All.pm
Criterion Covered Total %
statement 8 12 66.6
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package Net::Connection::Match::All;
2              
3 1     1   73282 use 5.006;
  1         15  
4 1     1   6 use strict;
  1         2  
  1         24  
5 1     1   5 use warnings;
  1         2  
  1         132  
6              
7             =head1 NAME
8              
9             Net::Connection::Match::All - Matches everything.
10              
11             =head1 VERSION
12              
13             Version 0.0.0
14              
15             =cut
16              
17             our $VERSION = '0.0.0';
18              
19              
20             =head1 SYNOPSIS
21              
22             use Net::Connection::Match::All;
23             use Net::Connection;
24            
25             my $connection_args={
26             foreign_host=>'10.0.0.1',
27             foreign_port=>'22',
28             local_host=>'10.0.0.2',
29             local_port=>'12322',
30             proto=>'tcp4',
31             state=>'ESTABLISHED',
32             pid=>0,
33             };
34            
35             my $conn=Net::Connection->new( $connection_args );
36            
37             my $checker=Net::Connection::Match::All->new;
38            
39             if ( $checker->match( $conn ) ){
40             print "It matches.\n";
41             }
42              
43             =head1 METHODS
44              
45             =head2 new
46              
47             None taken.
48            
49             my $checker=Net::Connection::Match::All->new( );
50              
51             =cut
52              
53             sub new{
54 0     0 1   my $self = {
55             };
56 0           bless $self;
57              
58 0           return $self;
59             }
60              
61             =head2 match
62              
63             Returns 1.
64              
65             if ( $checker->match( $conn ) ){
66             print "The connection matches.\n";
67             }
68              
69             =cut
70              
71             sub match{
72 0     0 1   return 1;
73             }
74              
75             =head1 AUTHOR
76              
77             Zane C. Bowers-Hadley, C<< >>
78              
79             =head1 BUGS
80              
81             Please report any bugs or feature requests to C, or through
82             the web interface at L. I will be notified, and then you'll
83             automatically be notified of progress on your bug as I make changes.
84              
85              
86              
87              
88             =head1 SUPPORT
89              
90             You can find documentation for this module with the perldoc command.
91              
92             perldoc Net::Connection::Match
93              
94              
95             You can also look for information at:
96              
97             =over 4
98              
99             =item * RT: CPAN's request tracker (report bugs here)
100              
101             L
102              
103             =item * AnnoCPAN: Annotated CPAN documentation
104              
105             L
106              
107             =item * CPAN Ratings
108              
109             L
110              
111             =item * Search CPAN
112              
113             L
114              
115             =back
116              
117              
118             =head1 ACKNOWLEDGEMENTS
119              
120              
121             =head1 LICENSE AND COPYRIGHT
122              
123             Copyright 2019 Zane C. Bowers-Hadley.
124              
125             This program is free software; you can redistribute it and/or modify it
126             under the terms of the the Artistic License (2.0). You may obtain a
127             copy of the full license at:
128              
129             L
130              
131             Any use, modification, and distribution of the Standard or Modified
132             Versions is governed by this Artistic License. By using, modifying or
133             distributing the Package, you accept this license. Do not use, modify,
134             or distribute the Package, if you do not accept this license.
135              
136             If your Modified Version has been derived from a Modified Version made
137             by someone other than you, you are nevertheless required to ensure that
138             your Modified Version complies with the requirements of this license.
139              
140             This license does not grant you the right to use any trademark, service
141             mark, tradename, or logo of the Copyright Holder.
142              
143             This license includes the non-exclusive, worldwide, free-of-charge
144             patent license to make, have made, use, offer to sell, sell, import and
145             otherwise transfer the Package with respect to any patent claims
146             licensable by the Copyright Holder that are necessarily infringed by the
147             Package. If you institute patent litigation (including a cross-claim or
148             counterclaim) against any party alleging that the Package constitutes
149             direct or contributory patent infringement, then this Artistic License
150             to you shall terminate on the date that such litigation is filed.
151              
152             Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER
153             AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
154             THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
155             PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY
156             YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR
157             CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR
158             CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE,
159             EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
160              
161              
162             =cut
163              
164             1; # End of Net::Connection::Match