$reg = {
	url  => qr[^http://],
};

##</code><code>##

sub AUTOLOAD {
	our $AUTOLOAD;
	my $arg = shift;

	if ($AUTOLOAD =~ /^is_/) {
		my $key = substr $AUTOLOAD, 3;
		my $val = $reg->{$val};
		return 1 if $arg =~ /$val/;
	}
}

##</code><code>##

$reg = {
	url  => qr[^http://],
	file => qr[^[a-Z]:/],
};

##</code><code>##

use Export;

our @EXPORT = do {
	no strict 'refs';
	grep {*$_{CODE}} keys %Str::;
};