2 Commits

Author SHA1 Message Date
  Zane C. B-H 5e4f1a1bca doc correction 1 month ago
  Zane C. B-H 942a656a4b update the manifest and add a load test for Ports 1 month ago

+ 4
- 0
Net-Connection-Match/MANIFEST View File

@@ -1,6 +1,7 @@
1 1
 Changes
2 2
 lib/Net/Connection/Match.pm
3 3
 lib/Net/Connection/Match/CIDR.pm
4
+lib/Net/Connection/Match/Ports.pm
4 5
 lib/Net/Connection/Match/Protos.pm
5 6
 lib/Net/Connection/Match/States.pm
6 7
 Makefile.PL
@@ -8,6 +9,9 @@ MANIFEST			This list of files
8 9
 README
9 10
 t/00-load.t
10 11
 t/01-load.t
12
+t/02-load.t
13
+t/03-load.t
14
+t/04-load.t
11 15
 t/CIDR.t
12 16
 t/States.t
13 17
 t/manifest.t

+ 3
- 3
Net-Connection-Match/lib/Net/Connection/Match/Protos.pm View File

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

+ 13
- 0
Net-Connection-Match/t/04-load.t View File

@@ -0,0 +1,13 @@
1
+#!perl -T
2
+use 5.006;
3
+use strict;
4
+use warnings;
5
+use Test::More;
6
+
7
+plan tests => 1;
8
+
9
+BEGIN {
10
+    use_ok( 'Net::Connection::Match::Ports' ) || print "Bail out!\n";
11
+}
12
+
13
+diag( "Testing Net::Connection::Match::Ports $Net::Connection::Match::Ports::VERSION, Perl $], $^X" );

Loading…
Cancel
Save