swuecho

use v5.20;
use experimental 'signatures';

sub is_upper { shift =~/[A-Z]/ }

sub stable_reverse($in_word) {
    my @letters =  (split '', $in_word); 
    my ($rev_char, $out_word);
    for (0 .. $#letters) {
        $rev_char = $letters[$#letters - $_];

swuecho

yapc talks this week.

XS Fun
https://www.youtube.com/watch?v=sD1-bgKm36c

The Perl API for the Mortally Terrified 
https://www.youtube.com/watch?v=-XITNDvqoTo

Foreign Function Interface (FFI): Never Need to Write XS Again 

swuecho

#!/usr/bin/env perl
use v5.10;

use Benchmark qw(cmpthese timethese);

my $dsid = 1;

sub name_to_number {
    my $name = shift;
    if ( $name = 'rock' ) {

swuecho

use v5.20;
use DDP;

my $fasta = <<'END';
>hello
GCTATATAAGC
>world prot
TATAKEKEKELKL
END

swuecho

use v5.20;
use Path::Tiny;
use DDP;

package Seq {
    use Moo;
    has [ 'id', 'comment', 'sequence' ] => ( is => 'rw' );
    1;
}

swuecho

use v5.20;
use DDP;

package Seq {
    use Moo;
    has [ 'id', 'comment', 'sequence' ] => ( is => 'rw' );
    1;
}

swuecho

use v5.20;
use DDP;

my $fasta = <<'END';
>hello
GCTATATAAGC
>world prot
TATAKEKEKELKL
END

swuecho

use v5.20;
use DDP;

package Seq {
    use Moo;
    has [ 'id', 'comment', 'sequence' ] => ( is => 'rw' );
    1;
}

package FASTA {

swuecho

use v5.20;
use DDP;

package Seq {
    use Moo;
    has [ 'id', 'comment', 'sequence' ] => ( is => 'rw' );
    1;
}

my $parser = do {

swuecho

Dark version

wget --no-check-certificate https://raw.github.com/seebi/dircolors-solarized/master/dircolors.ansi-dark
mv dircolors.ansi-dark .dircolors
eval `dircolors ~/.dircolors`

git clone https://github.com/sigurdga/gnome-terminal-colors-solarized.git
cd gnome-terminal-colors-solarized
./set_dark.sh