File Coverage

blib/lib/FormValidator/LazyWay/Rule/Net.pm

Criterion	Covered	Total	%
statement	17	23	73.9
branch	8	14	57.1
condition			n/a
subroutine	7	10	70.0
pod	0	7	0.0
total	32	54	59.2

package FormValidator::LazyWay::Rule::Net;

use strict;
use warnings;
use Data::Validate::URI;

sub uri {
    my $uri = shift;
    return Data::Validate::URI::is_uri( $uri ) ? 1 : 0;
}

sub url {
    my $url = shift;
    return Data::Validate::URI::is_web_uri($url) ? 1 : 0;
}

sub http {
    my $url = shift;
    return Data::Validate::URI::is_http_uri($url) ? 1 : 0;
}

sub https {
    my $url = shift;
    return Data::Validate::URI::is_https_uri($url) ? 1 : 0;
}

sub url_loose {
    my $url = shift;

    return $url =~ m{^https?://[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%#]+$} ? 1 : 0;
}

sub http_loose {
    my $url = shift;
    return $url =~ m{^http://[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%#]+$} ? 1 : 0;
}

sub https_loose {
    my $url = shift;
    return $url =~ m{^https://[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%#]+$} ? 1 : 0;
}

1;