#!/usr/bin/env perl

use strict;
use warnings;

BEGIN {
	package String;
	use Type::Library -base;
	use Type::Utils;
	use Types::Standard qw(StrMatch);

	$INC{"String.pm"} = __FILE__;
	
	declare "Url", as StrMatch[qr(^http:)];
	declare "SecureUrl", as StrMatch[qr(^https:)];
};

use String -all;

print is_SecureUrl("https://github.com/"), "\n";

assert_SecureUrl("http://evil.com/");