gistfile1.pl

sub foo {
    my ($self, $args) = rule {
        uri        => { isa => 'Str', xor => [qw(schema host path_query)] },
        schema     => { isa => 'Str', default => 'http' },
        host       => { isa => 'Str', default => '127.0.0.1' },
        path_query => { isa => 'Str', default => '/' },
        method     => { isa => 'Str', default => 'GET' },
    } @_;

    
}