note the use of All and bump to 0.5.0

Net-Connection-Match/Changes

@@ -1,5 +1,9 @@
 Revision history for Net-Connection-Match
 
+0.5.0	 2021-02-17:23:30
+		 - Add All.
+		 - Use all if no checks are specified.
+
 0.4.0	 2019-08-12/05:50
 		 - Add PctCPU, PctMem, and WChan.
 

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

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
@@ -78,7 +78,8 @@ our $VERSION = '0.4.0';
 This initializes a new check object.
 
 It takes one value and thht is a hash ref with the key checks.
-This is a array of hashes.
+This is a array of hashes. If the array is empty, it will default
+to using the All test.
 
 If new fails, it will die.
 
@@ -123,7 +124,12 @@ sub new{
 	}
 	# Will never match anything.
 	if ( ! defined $args{checks}[0] ){
-		die ('Nothing in the checks array');
+		$args{checks}[0] = {
+			type   => 'All',
+			invert => 0,
+			args   => {}
+		};
+
 	}
 	if ( ref( %{ $args{checks}[0] } ) eq 'HASH' ){
 		die ('The first item in the checks array is not a hash');
@@ -144,9 +150,6 @@ sub new{
 				};
     bless $self;
 
-	# will hold the created check objects
-	my @checks;
-
 	# Loads up each check or dies if it fails to.
 	my $check_int=0;
 	while( defined( $args{checks}[$check_int] ) ){

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<< <vvelox at vvelox.net> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-net-connection-match at rt.cpan.org>, or through
+the web interface at L<https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Connection-Match>.  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<https://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-Connection-Match>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Net-Connection-Match>
+
+=item * CPAN Ratings
+
+L<https://cpanratings.perl.org/d/Net-Connection-Match>
+
+=item * Search CPAN
+
+L<https://metacpan.org/release/Net-Connection-Match>
+
+=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<http://www.perlfoundation.org/artistic_license_2_0>
+
+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

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" );