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

misc cleanup and add some regex specific examples

This commit is contained in:
Zane C. B-H 2019-08-06 02:18:56 -05:00
parent 6db5bfbe34
commit 9100bd3f05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Net-Connection-Match/lib/Net/Connection/Match/RegexPTR.pm
View File

@ -42,13 +42,13 @@ our $VERSION = '0.0.0';
# Atleast one of them must be and must not be a empty array.
my %args=(
ptrs=>[
'foo.bar',
'foo',
],
lptrs=>[
'a.foo.bar',
'bar',
],
fptrs=>[
'b.foo.bar',
'f[oa]o',
],
);
@ -141,10 +141,10 @@ sub new{
$self->{ptrs}=$args{ptrs};
}
if ( defined( $args{lptrs}[0] ) ){
$self->{lptrs}=\@{ $args{lptrs} };
$self->{lptrs}=$args{lptrs};
}
if ( defined( $args{fptrs}[0] ) ){
$self->{fptrs}=\@{ $args{fptrs} };
$self->{fptrs}=$args{fptrs};
}
return $self;