File Coverage

blib/lib/Unicorn/Manager/Types.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Unicorn::Manager::Types;

use Moo;
use 5.010;
use Try::Tiny;
use Socket;
use Net::Interface;

sub hashref {
    return sub {
        die "Failed type constraint. Should be a HashRef but is a " . ref( $_[0] )
            if ref( $_[0] ) ne 'HASH';
        }
}

sub local_address {
    return sub {
        my $param = shift;

        my @addresses = map {
            map { Net::Interface::inet_ntoa($_) } $_->address;
        } Net::Interface->interfaces;

        if ( $param =~ /^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/ ) {
            return 1 if grep { $_ eq $param } @addresses;
            die "Can not listen on $param. No interface with this address.";
        }
        else {
            if ( my $packed = gethostbyname $param ) {
                my $address = Socket::inet_ntoa $packed;
                return 1 if grep { $_ eq $address } @addresses;
            }
            die "Can not listen on $param. Hostname not resolvable.";
        }

        }
}

1;

__END__