The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use URI;

plan skip_all => 'this test assumes that URI::javascript does not exist'
    if eval 'require URI::javascript';
plan tests => 4;

for (0..1) {
    my $uri = URI->new('javascript://foo/bar');

    is($@, '', 'no exception when trying to load a scheme handler class');
    ok($uri->isa('URI'), 'but URI still instantiated as foreign');
}