şunun yansıması https://github.com/VVelox/Net-Connection-Match.git
İşlemeleri karşılaştır
2 İşleme
781437abf3
...
5e4f1a1bca
Yazar | SHA1 | Tarih |
---|---|---|
Zane C. B-H | 5e4f1a1bca | |
Zane C. B-H | 942a656a4b |
|
@ -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" );
|
Yükleniyor…
Yeni konuda referans