File Coverage

blib/lib/NetAddr/IP/Find.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	34	36	94.4

package NetAddr::IP::Find;

use strict;
use vars qw($VERSION @EXPORT);
$VERSION = '0.03';

use base qw(Exporter);
@EXPORT = qw(find_ipaddrs);

use NetAddr::IP;

my $regex = qr<(\d+)\.(\d+)\.(\d+)\.(\d+)>;

sub find_ipaddrs (\$&) {
    my($r_text, $callback) = @_;
    my $addrs_found = 0;

    $$r_text =~ s{$regex}{
	my $orig_match = join '.', $1, $2, $3, $4;
	if ((my $num_matches = grep { _in_range($_) } $1, $2, $3, $4) == 4) {
	    $addrs_found++;
	    my $ipaddr = NetAddr::IP->new($orig_match);
	    $callback->($ipaddr, $orig_match);
	} else {
	    $orig_match;
	}
    }eg;

    return $addrs_found;
}

sub _in_range {
    return 0 <= $_[0] && $_[0] <= 255;
}


1;
__END__