Yet Another CPAN Grep

URI ( G/GA/GAAS/URI-1.60.tar.gz, OALDERS, 2012; MetaCPAN )

URI/lib/URI.pm ( view source; MetaCPAN )

sub clone
{
    my $self = shift;
    my $other = $$self;
    bless \$other, ref $self;
}

sub TO_JSON { ${$_[0]} }

sub _no_scheme_ok { 0 }

sub _scheme
{
    my $self = shift;

    unless (@_) {
	re