mpapec
mpapec
/ test.pl
Last active
September 8, 2016 14:57
— forked from jberger/test.pl
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use Mojolicious::Lite; | |
| helper iodelay => sub { | |
| my $cb = pop; | |
| my ($c, @steps) = @_; | |
| push @steps, sub { | |
| # log err if $_[1] | |
| shift; | |
| $c->$cb(@_); |
mpapec
/ gist:29ec920803da760a1bd8
Last active
August 29, 2015 14:11
— forked from schwern/gist:90caaccb4127cb8a98f3
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use Benchmark qw(cmpthese); | |
| my $String = "ATGC" x 1000; | |
| my @Genes = qw(A T G C); | |
| my %Count; | |
| my %dispatch = map { $_ => eval "sub { \$_[0] =~ tr/$_// }" } @Genes; |