Sample URL validation with Regexp::Common

Regexp::Common URI

use Regexp::Common qw /URI/;

sub _is_valid_url
{
    my ($self, $url) = @_;

    my $regexp = qr($RE{URI}{HTTP}{-scheme=>qr/https?/}{-keep});

    return 1 if ($url =~ $regexp);

    return 0;
}

Thanks for "https?".