gistfile1.txt

ROOT_GIVEN:
given ( '/hoge' ) {
    when ( m{^/h(.*)$} ) {
        my $after = $1;
        given ($after) {
            when ( 'uga' ) {
                say 'huga';
            }
            default {
                continue ROOT_GIVEN;
            }
        }
    }
    default {
        say 'root default';
    }
}