File Coverage

blib/lib/Net/IANA/Services.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch	27	32	84.3
condition			n/a
subroutine	11	11	100.0
pod	4	4	100.0
total	91	98	92.8

use strict;
use warnings;
use utf8;

package Net::IANA::Services;
$Net::IANA::Services::VERSION = '0.004000';
BEGIN {
  $Net::IANA::Services::AUTHORITY = 'cpan:LESPEA';
}

#ABSTRACT:  Makes working with named ip services easier


#  Import needed modules
use YAML::Any qw/ LoadFile /;
use File::ShareDir qw/ dist_file /;


#  Export our vars/subs
use Exporter::Easy (
    TAGS => [
        hashes => [qw(
            $IANA_HASH_INFO_FOR_SERVICE
            $IANA_HASH_PORTS_FOR_SERVICE
            $IANA_HASH_SERVICES_FOR_PORT
            $IANA_HASH_SERVICES_FOR_PORT_PROTO
        )],

        regexes => [qw(
            $IANA_REGEX_PORTS
            $IANA_REGEX_PORTS_DCCP
            $IANA_REGEX_PORTS_SCTP
            $IANA_REGEX_PORTS_TCP
            $IANA_REGEX_PORTS_UDP
            $IANA_REGEX_SERVICES
            $IANA_REGEX_SERVICES_DCCP
            $IANA_REGEX_SERVICES_SCTP
            $IANA_REGEX_SERVICES_TCP
            $IANA_REGEX_SERVICES_UDP
        )],

        subs => [qw(
            iana_has_port
            iana_has_service
            iana_info_for_port
            iana_info_for_service
        )],

        all => [qw/ :hashes  :regexes  :subs /],
    ],
    VARS => 1,
);


#  Constants
my $_HASHES_REF = LoadFile dist_file q{Net-IANA-Services}, q{services_hashes_dump.yml};






#####################
#  Regex constants  #
#####################



our $IANA_REGEX_PORTS = qr{\b(?



our $IANA_REGEX_SERVICES = qr{\b(?



our $IANA_REGEX_PORTS_DCCP = qr{\b(?



our $IANA_REGEX_PORTS_SCTP = qr{\b(?



our $IANA_REGEX_PORTS_TCP = qr{\b(?



our $IANA_REGEX_PORTS_UDP = qr{\b(?



our $IANA_REGEX_SERVICES_DCCP = qr{\b(?



our $IANA_REGEX_SERVICES_SCTP = qr{\b(?



our $IANA_REGEX_SERVICES_TCP = qr{\b(?



our $IANA_REGEX_SERVICES_UDP = qr{\b(?




####################
#  Hash constants  #
####################



our $IANA_HASH_INFO_FOR_SERVICE = $_HASHES_REF->{ q{service_info} };




our $IANA_HASH_SERVICES_FOR_PORT = $_HASHES_REF->{ q{port} };




our $IANA_HASH_SERVICES_FOR_PORT_PROTO = $_HASHES_REF->{ q{port_proto} };




our $IANA_HASH_PORTS_FOR_SERVICE = $_HASHES_REF->{ q{service} };




#################
#  Subroutines  #
#################



sub iana_has_port {
    my ($port, $protocol) = @_;
    if (defined $protocol) {
        my $port_ref = $IANA_HASH_SERVICES_FOR_PORT_PROTO->{ $port };
        if (defined $port_ref) {
            return $port_ref->{ $protocol } ? 1 : 0;
        }
        else {
            return 0;
        }
    }
    else {
        return $IANA_HASH_SERVICES_FOR_PORT->{ $port } ? 1 : 0;
    }
}




sub iana_has_service {
    my ($service, $protocol) = @_;
    if (defined $protocol) {
        my $serv_ref = $IANA_HASH_INFO_FOR_SERVICE->{ $service };
        if (defined $serv_ref) {
            return $serv_ref->{ $protocol } ? 1 : 0;
        }
        else {
            return 0;
        }
    }
    else {
        return $IANA_HASH_PORTS_FOR_SERVICE->{ $service } ? 1 : 0;
    }
}




sub iana_info_for_port {
    my ($port, $protocol) = @_;
    my $ret;
    if  (defined $protocol) {
        my $port_ref = $IANA_HASH_SERVICES_FOR_PORT_PROTO->{ $port };
        if  (defined $port_ref) {
            $ret = $port_ref->{ $protocol };
        }
    }
    else {
        $ret = $IANA_HASH_SERVICES_FOR_PORT->{ $port };
    }
    if (defined $ret) {
        return wantarray  ?  @$ret  :  $ret;
    }
    else {
        return;
    }
}




sub iana_info_for_service {
    my ($service, $protocol) = @_;
    my $serv_ref = $IANA_HASH_INFO_FOR_SERVICE->{ $service };
    my $ret;
    if  (defined $serv_ref) {
        $ret = defined $protocol ? $serv_ref->{ $protocol } : $serv_ref;
    }
    if (defined $ret) {
        return wantarray  ?  %$ret  :  $ret;
    }
    else {
        return;
    }
}




#  Happy ending
1;

__END__