File Coverage

blib/lib/URI/Coralize.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	7	8	87.5
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	33	35	94.2

package URI::Coralize;

use strict;
use warnings;

use URI ();

our $VERSION = '0.01';
$VERSION = eval $VERSION;

sub URI::coralize {
    my ($uri) = @_;

    # CoralCDN doesn't proxy secure requests and simply redirects to the
    # requested resource.
    return $uri if 'http' ne $uri->scheme;

    my $host = eval { $uri->host };
    return $uri unless $host;

    # Don't coralize the coralized.
    return $uri if $host =~ m[ (?:^ | \.) nyud.net $]x;

    my $new = $uri->clone;

    if (80 != $uri->port) {
        $host .= '.' . $uri->port;
        $new->port(undef);
    }

    $host .= '.nyud.net';

    $new->host($host);

    return $new;
}


1;

__END__