vvelox
/
Net-Connection-Match
mirror of https://github.com/VVelox/Net-Connection-Match.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

matching and docs done

This commit is contained in:
Zane C. B-H 2019-07-08 00:55:44 -05:00
parent 3a2572e50e
commit 0167544fb2
1 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
Net-Connection-Match/lib/Net/Connection/Match/CIDR.pm
View File

@ -21,12 +21,58 @@ our $VERSION = '0.0.0';
=head1 SYNOPSIS
use Net::Connection::Match::CIDR;
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',
};
my $conn=Net::Connection->new( $connection_args );
my %args=(
cidrs=>[
'127.0.0.0/24',
'192.168.0.0/16',
'10.0.0.0/8'
],
);
my $cidr_checker=Net::Connection::Match::CIDR->new( \%args );
if ( $cidr_checker->match( $conn ) ){
print "It matches.\n";
}
=head1 METHODS
=head2 new
This intiates the object.
It takes a hash reference with one key. One key is required and
that is 'cidrs', which is a array of CIDRs to match against.
Net::CIDR::cidrvalidate is used to validate the CIDRs.
Atleast one CIDR must be present.
If the new method fails, it dies.
my %args=(
cidrs=>[
'127.0.0.0/24',
'192.168.0.0/16',
'10.0.0.0/8'
],
);
my $cidr_checker=Net::Connection::Match::CIDR->new( \%args );
=cut
sub new{
@ -78,6 +124,14 @@ sub new{
Checks if a single Net::Connection object matches the stack.
One argument is taken and that is a Net::Connection object.
The returned value is a boolean.
if ( $cidr_checker->match( $conn ) ){
print "The connection matches.\n";
}
=cut
sub match{