diff --git a/Net-Connection-Match/Changes b/Net-Connection-Match/Changes index 7c4ea35..955593a 100644 --- a/Net-Connection-Match/Changes +++ b/Net-Connection-Match/Changes @@ -1,5 +1,8 @@ Revision history for Net-Connection-Match +0.5.0 2021-02-17:23:00 + - Add All. + 0.4.0 2019-08-12/05:50 - Add PctCPU, PctMem, and WChan. diff --git a/Net-Connection-Match/MANIFEST b/Net-Connection-Match/MANIFEST index 0236ea0..3cb416e 100644 --- a/Net-Connection-Match/MANIFEST +++ b/Net-Connection-Match/MANIFEST @@ -1,5 +1,6 @@ Changes lib/Net/Connection/Match.pm +lib/Net/Connection/Match/All.pm lib/Net/Connection/Match/CIDR.pm lib/Net/Connection/Match/Command.pm lib/Net/Connection/Match/PctCPU.pm @@ -26,6 +27,8 @@ t/09-load.t t/10-load.t t/11-load.t t/12-load.t +t/13-load.t +t/14-load.t t/CIDR.t t/PTR.t t/Protos.t diff --git a/Net-Connection-Match/lib/Net/Connection/Match.pm b/Net-Connection-Match/lib/Net/Connection/Match.pm index b937d2d..ea68c8a 100644 --- a/Net-Connection-Match/lib/Net/Connection/Match.pm +++ b/Net-Connection-Match/lib/Net/Connection/Match.pm @@ -11,11 +11,11 @@ Net::Connection::Match - Runs a stack of checks to match Net::Connection objects =head1 VERSION -Version 0.4.0 +Version 0.5.0 =cut -our $VERSION = '0.4.0'; +our $VERSION = '0.5.0'; =head1 SYNOPSIS diff --git a/Net-Connection-Match/lib/Net/Connection/Match/All.pm b/Net-Connection-Match/lib/Net/Connection/Match/All.pm new file mode 100644 index 0000000..e838e96 --- /dev/null +++ b/Net-Connection-Match/lib/Net/Connection/Match/All.pm @@ -0,0 +1,164 @@ +package Net::Connection::Match::All; + +use 5.006; +use strict; +use warnings; + +=head1 NAME + +Net::Connection::Match::All - Matches everything. + +=head1 VERSION + +Version 0.0.0 + +=cut + +our $VERSION = '0.0.0'; + + +=head1 SYNOPSIS + + use Net::Connection::Match::All; + use Net::Connection; + + my $connection_args={ + foreign_host=>'10.0.0.1', + foreign_port=>'22', + local_host=>'10.0.0.2', + local_port=>'12322', + proto=>'tcp4', + state=>'ESTABLISHED', + pid=>0, + }; + + my $conn=Net::Connection->new( $connection_args ); + + my $checker=Net::Connection::Match::All->new; + + if ( $checker->match( $conn ) ){ + print "It matches.\n"; + } + +=head1 METHODS + +=head2 new + +None taken. + + my $checker=Net::Connection::Match::All->new( ); + +=cut + +sub new{ + my $self = { + }; + bless $self; + + return $self; +} + +=head2 match + +Returns 1. + + if ( $checker->match( $conn ) ){ + print "The connection matches.\n"; + } + +=cut + +sub match{ + return 1; +} + +=head1 AUTHOR + +Zane C. Bowers-Hadley, C<< >> + +=head1 BUGS + +Please report any bugs or feature requests to C, or through +the web interface at L. I will be notified, and then you'll +automatically be notified of progress on your bug as I make changes. + + + + +=head1 SUPPORT + +You can find documentation for this module with the perldoc command. + + perldoc Net::Connection::Match + + +You can also look for information at: + +=over 4 + +=item * RT: CPAN's request tracker (report bugs here) + +L + +=item * AnnoCPAN: Annotated CPAN documentation + +L + +=item * CPAN Ratings + +L + +=item * Search CPAN + +L + +=back + + +=head1 ACKNOWLEDGEMENTS + + +=head1 LICENSE AND COPYRIGHT + +Copyright 2019 Zane C. Bowers-Hadley. + +This program is free software; you can redistribute it and/or modify it +under the terms of the the Artistic License (2.0). You may obtain a +copy of the full license at: + +L + +Any use, modification, and distribution of the Standard or Modified +Versions is governed by this Artistic License. By using, modifying or +distributing the Package, you accept this license. Do not use, modify, +or distribute the Package, if you do not accept this license. + +If your Modified Version has been derived from a Modified Version made +by someone other than you, you are nevertheless required to ensure that +your Modified Version complies with the requirements of this license. + +This license does not grant you the right to use any trademark, service +mark, tradename, or logo of the Copyright Holder. + +This license includes the non-exclusive, worldwide, free-of-charge +patent license to make, have made, use, offer to sell, sell, import and +otherwise transfer the Package with respect to any patent claims +licensable by the Copyright Holder that are necessarily infringed by the +Package. If you institute patent litigation (including a cross-claim or +counterclaim) against any party alleging that the Package constitutes +direct or contributory patent infringement, then this Artistic License +to you shall terminate on the date that such litigation is filed. + +Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER +AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. +THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR +PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY +YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR +CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR +CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, +EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + +=cut + +1; # End of Net::Connection::Match diff --git a/Net-Connection-Match/t/14-load.t b/Net-Connection-Match/t/14-load.t new file mode 100644 index 0000000..6794d27 --- /dev/null +++ b/Net-Connection-Match/t/14-load.t @@ -0,0 +1,13 @@ +#!perl -T +use 5.006; +use strict; +use warnings; +use Test::More; + +plan tests => 1; + +BEGIN { + use_ok( 'Net::Connection::Match::All' ) || print "Bail out!\n"; +} + +diag( "Testing Net::Connection::Match::All $Net::Connection::Match::All::VERSION, Perl $], $^X" );