kraih

$ cpanm -Lperltidy_new Perl::Tidy
--> Working on Perl::Tidy
...
1 distribution installed

$ cpanm -Lperltidy_old Perl::Tidy@20181120
--> Working on Perl::Tidy
...
1 distribution installed

kraih

package MyApp::Controller::Auth;
use Mojo::Base 'Mojolicious::Controller';

sub check {
  my $self = shift;

  my $role = $self->stash('role');
  my $user = $self->current_user;

  # User needs to log in or a different role

kraih

module.exports = {
  config: {
    backgroundColor: "#2e3440",
    borderColor: "#3b4252",
    colors: {
      black: "#3b4252",
      blue: "#81a1c1",
      cyan: "#88c0d0",
      green: "#a3be8c",
      lightBlack: "#4c566a",

kraih

Keybase proof

I hereby claim:

• I am kraih on github.
• I am kraih (https://keybase.io/kraih) on keybase.
• I have a public key whose fingerprint is 6BA8 BB3D 9A3D 17A2 DD2B ADDA A4F2 2996 1D48 27F5

To claim this, I am signing this object:

kraih

{
    "editor.fontFamily": "'Consolas",
    "editor.fontSize": 13,
    "editor.minimap.enabled": false,
    "editor.renderIndentGuides": false,
    "editor.renderWhitespace": "boundary",
    "editor.rulers": [80],
    "editor.tabSize": 2,
    "emmet.includeLanguages": {
      "mojolicious": "html"

kraih

#!/usr/bin/perl

use 5.24.0;

use Mojo::UserAgent;
use IO::Socket::SSL;

my %LANGUAGES = (

  # SLE main languages

kraih

use Mojolicious::Lite;
use Mojo::IOLoop;

sub fib { $_[0] < 2 ? 1 : fib($_[0] - 2) + fib($_[0] - 1) }

get '/fibonacci' => sub {
  my $c = shift;

  $c->inactivity_timeout(300);

kraih

use Mojolicious::Lite;
use Mojo::EventEmitter;

helper events => sub { state $events = Mojo::EventEmitter->new };

get '/' => 'chat';

websocket '/channel' => sub {
  my $c = shift;

kraih

$ perl5.16 -Mre=debug -E 'my $x = "y"; "y" =~ /z$x/ for 1 .. 2'
Compiling REx "zy"
Final program:
   1: EXACT <zy> (3)
   3: END (0)
anchored "zy" at 0 (checking anchored isall) minlen 2
Freeing REx: "zy"

kraih

#!/usr/bin/xcrun swift -i

println("Hello World!")