File Coverage

lib/Sisimai/RFC791.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	10	10	100.0
condition	6	7	85.7
subroutine	5	5	100.0
pod	2	2	100.0
total	47	48	97.9

package Sisimai::RFC791;
use v5.26;
use strict;
use warnings;

sub is_ipv4address {
    # Returns 1 if the argument is an IPv4 address
    # @param    [String] argv1  IPv4 address like "192.0.2.25"
    # @return   [Bool]          1: is an IPv4 address
    # @since v5.2.0
    my $class = shift;
    my $argv0 = shift || return 0;    return 0 if length $argv0  < 7;
    my @octet = split(/[.]/, $argv0); return 0 if scalar @octet != 4;

    for my $e ( @octet ) {
        # Check each octet is between 0 and 255
        return 0 unless $e =~ /\A[0-9]{1,3}\z/; my $v = int $e;
        return 0 if $v < 0 || $v > 255;
    }
    return 1;
}

sub find {
    # Find an IPv4 address from the given string
    # @param    [String] argv1  String including an IPv4 address
    # @return   [Array]         List of IPv4 addresses
    # @since v5.0.0
    my $class = shift;
    my $argv0 = shift || return undef; return [] if length $argv0 < 7;

    $argv0 =~ tr/()[],/ /;
    return [grep { $class->is_ipv4address($_) } split(' ', $argv0)];
}

1;
__END__