Compare commits

...

2 次程式碼提交

作者 SHA1 備註 提交日期
Zane C. B-H 5e4f1a1bca doc correction 2019-07-08 03:47:55 -05:00
Zane C. B-H 942a656a4b update the manifest and add a load test for Ports 2019-07-08 03:39:02 -05:00
共有 3 個文件被更改,包括 20 次插入3 次删除

查看文件

@ -1,6 +1,7 @@
Changes
lib/Net/Connection/Match.pm
lib/Net/Connection/Match/CIDR.pm
lib/Net/Connection/Match/Ports.pm
lib/Net/Connection/Match/Protos.pm
lib/Net/Connection/Match/States.pm
Makefile.PL
@ -8,6 +9,9 @@ MANIFEST This list of files
README
t/00-load.t
t/01-load.t
t/02-load.t
t/03-load.t
t/04-load.t
t/CIDR.t
t/States.t
t/manifest.t

查看文件

@ -55,7 +55,7 @@ This intiates the object.
It takes a hash reference with one key. One key is required and
that is 'protos', which is a array of protocols to match against.
Atleast one state must be present.
Atleast one protocol must be present.
If the new method fails, it dies.
@ -77,10 +77,10 @@ sub new{
# run some basic checks to make sure we have the minimum stuff required to work
if ( ! defined( $args{protos} ) ){
die ('No states key specified in the argument hash');
die ('No protos key specified in the argument hash');
}
if ( ref( \$args{protos} ) eq 'ARRAY' ){
die ('The states key is not a array');
die ('The protos key is not a array');
}
if ( ! defined $args{protos}[0] ){
die ('No states defined in the protos array');

查看文件

@ -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::Ports' ) || print "Bail out!\n";
}
diag( "Testing Net::Connection::Match::Ports $Net::Connection::Match::Ports::VERSION, Perl $], $^X" );