fkumro

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);