File Coverage

blib/lib/URI/Find/Schemeless/Stricter.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	25	25	100.0

package URI::Find::Schemeless::Stricter;

use 5.00600;

use strict;

use base 'URI::Find';

our $VERSION = '1.03';

# We could put the whole ISO country code thing in here...
my $tldRe      = '(?i:biz|com|edu|gov|info|int|mil|net|org|[a-z]{2})';
my $hostRe     = '(?i:www|ftp|web)';
my $dottedquad = qr/(?:\d{1,3}\.){3}\d{1,3}/;
my $dnsSet     = 'A-Za-z0-9-';
my $cruftSet   = q{),.'";\]};
my $uricSet    = __PACKAGE__->uric_set;

sub _is_uri {
	my ($class, $candidate) = @_;
	return 0 if $$candidate =~ /^$dottedquad$/;
	return $class->SUPER::_is_uri($candidate);
}

sub schemeless_uri_re {
	return qr{
		(?: ^ | (?<=[\s<]) )
		# hostname
		(?: $hostRe\.[$dnsSet]+(?:\.[$dnsSet]+)*\.$tldRe
			| $dottedquad )       # not inet_aton() complete
		(?:
			(?=[\s>?$cruftSet])   # followed by unrelated thing
				(?!\.\w)            #   but don't stop mid foo.xx.bar
				(?
			|$                    # or end of line
				(?
			|/[$uricSet#]*        # or slash and URI chars
  	)
  }x;
}

1;
__END__