—

              
package Net::IP::Minimal;
{
  $Net::IP::Minimal::VERSION = '0.06';
}
#ABSTRACT: Minimal functions from Net::IP
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(ip_get_version ip_is_ipv4 ip_is_ipv6);
our %EXPORT_TAGS = ( 'PROC' => [ @EXPORT_OK ] );
sub ip_get_version {
    my $ip = shift;
    # If the address does not contain any ':', maybe it's IPv4
    $ip !~ /:/ and ip_is_ipv4($ip) and return '4';
    # Is it IPv6 ?
    ip_is_ipv6($ip) and return '6';
    return;
}
sub ip_is_ipv4 {
    my $ip = shift;
    # Check for invalid chars
    unless ($ip =~ m/^[\d\.]+$/) {
        return 0;
    }
    if ($ip =~ m/^\./) {
        return 0;
    }
    if ($ip =~ m/\.$/) {
        return 0;
    }
    # Single Numbers are considered to be IPv4
    if ($ip =~ m/^(\d+)$/ and $1 < 256) { return 1 }
    # Count quads
    my $n = ($ip =~ tr/\./\./);
    # IPv4 must have from 1 to 4 quads
    unless ($n >= 0 and $n < 4) {
        return 0;
    }
    # Check for empty quads
    if ($ip =~ m/\.\./) {
        return 0;
    }
    foreach (split /\./, $ip) {
        # Check for invalid quads
        unless ($_ >= 0 and $_ < 256) {
            return 0;
        }
    }
    return 1;
}
sub ip_is_ipv6 {
    my $ip = shift;
    # Count octets
    my $n = ($ip =~ tr/:/:/);
    return 0 unless ($n > 0 and $n < 8);
    # $k is a counter
    my $k;
    foreach (split /:/, $ip) {
        $k++;
        # Empty octet ?
        next if ($_ eq '');
        # Normal v6 octet ?
        next if (/^[a-f\d]{1,4}$/i);
        # Last octet - is it IPv4 ?
        if ( ($k == $n + 1) && ip_is_ipv4($_) ) {
            $n++; # ipv4 is two octets
            next;
        }
        return 0;
    }
    # Does the IP address start with : ?
    if ($ip =~ m/^:[^:]/) {
        return 0;
    }
    # Does the IP address finish with : ?
    if ($ip =~ m/[^:]:$/) {
        return 0;
    }
    # Does the IP address have more than one '::' pattern ?
    if ($ip =~ s/:(?=:)/:/g > 1) {
        return 0;
    }
    # number of octets
    if ($n != 7 && $ip !~ /::/) {
        return 0;
    }
    # valid IPv6 address
    return 1;
}
qq[IP freely];
__END__
HideShow 84 lines of Pod
=pod
=head1 NAME
Net::IP::Minimal - Minimal functions from Net::IP
=head1 VERSION
version 0.06
=head1 SYNOPSIS
  use Net::IP::Minimal qw[:PROC];
  my $ip = '172.16.0.216';
  ip_is_ipv4( $ip ) and print "$ip is IPv4";
  $ip = 'dead:beef:89ab:cdef:0123:4567:89ab:cdef';
  ip_is_ipv6( $ip ) and print "$ip is IPv6";
  print ip_get_version( $ip );
=head1 DESCRIPTION
L<Net::IP> is very feature complete, but I found I was only using three of its functions
and it uses quite a bit of memory L<https://rt.cpan.org/Public/Bug/Display.html?id=24525>.
This module only provides the minimal number of functions that I use in my modules.
=head1 FUNCTIONS
The same as L<Net::IP> these functions are not exported by default. You may import them explicitly
or use C<:PROC> to import them all.
=over
=item C<ip_get_version>
Try to guess the IP version of an IP address.
    Params  : IP address
    Returns : 4, 6, undef(unable to determine)
C<$version = ip_get_version ($ip)>
=item C<ip_is_ipv4>
Check if an IP address is of type 4.
    Params  : IP address
    Returns : 1 (yes) or 0 (no)
C<ip_is_ipv4($ip) and print "$ip is IPv4";>
=item C<ip_is_ipv6>
Check if an IP address is of type 6.
    Params            : IP address
    Returns           : 1 (yes) or 0 (no)
C<ip_is_ipv6($ip) and print "$ip is IPv6";>
=back
=head1 SEE ALSO
L<Net::IP>
=head1 AUTHOR
Chris Williams <chris@bingosnet.co.uk>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Chris Williams and RIPE-NCC.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut