Skip to content

Instantly share code, notes, and snippets.

View nordicdyno's full-sized avatar
😐

Alexander Orlovsky nordicdyno

😐
View GitHub Profile
@nordicdyno
nordicdyno / perl6_uni
Created May 13, 2011 11:02
perl6 unicode working example
"simple script ✎ :".say;
my $привет = "hi!";
"☺ Peace Nigga!".say;
сказать $привет, " ☻ ";
sub сказать(*@слова) {
@слова.say;
}
#vim: perl6
#compdef cpanm
#autoload
typeset -A opt_args
local context state line
_arguments -C \
'(-h)'{-h,--help}'[prints help]' \
'(-v --verobse)'{-v,--verbose}'[turn on chatty output.]' \
'(-q --quiet)'{-q,--quiet}'[turn off the most output.]' \
# check routes: script/app routes
my $r = $self->routes;
$r->route("/$_")->to("user-auth#$_") for qw(login signup forgot);
# check user
for($r->bridge->to('user-auth#check')) {
$_->route('/')->to('about#index');
$_->route('/movies')->to('movie#main');