throughnothing

Use

curl throughnothing.com/dotfiles.sh | bash
bash <(curl throughnothing.com/dotfiles.sh)

To use with a specific branch:

curl throughnothing.com/dotfiles.sh | bash -s BRANCH 

bash <(curl throughnothing.com/dotfiles.sh) BRANCH

throughnothing

# grep --- all lines including foo
ls -al | grep foo
ls -al | pru /foo/
ls -al | perl -ne 'print if /foo/'
perl -E 'say for <*foo*>'

# grep --- all lines including current date
ls -al | grep $(date +"%Y-%m-%d")
ls -al | pru 'include?(Time.now.strftime("%Y-%m-%d"))'
ls -al | perl -MTime::Piece -ne '$d=localtime->strftime("%Y-%m-%d");print if /$d/'

throughnothing

#!/usr/bin/env perl
use v5.10;
use DateTime;
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Cookies;

my $user = '';
my $pass = '';

throughnothing

appdir = '/usr/share/octoindicator/media/'
self.ind = appindicator.Indicator ("octo-indicator",
                          os.path.join(appdir,"octocat.png"),
                          appindicator.CATEGORY_COMMUNICATIONS)
self.ind.set_status (appindicator.STATUS_ACTIVE)
self.ind.set_attention_icon (os.path.join(appdir,"octocat-active.png"))

throughnothing

use v5.12;
package Bot::BasicBot::Pluggable::Module::GitHub::PostBack;
use base qw(Bot::BasicBot::Pluggable::Module);

use POE qw/Component::Server::HTTP/;
use CGI::Simple;
use JSON qw(from_json);

sub help {
    my ($self, $msg) = @_;

throughnothing

Download Instapaper Epub and put it on my Nook

Simply set the $user and pass variables, then run instapaper.pl when your Nook is plugged in and it will automatically download your instapaper feed to your nook.

throughnothing

do shell script "open -n -a aurora --args -profilemanager"

throughnothing

#!/usr/bin/env perl
use Dancer ':syntax';
use Dancer::Factory::Hook;

set logger => 'consoleAggregator';

debug "testing testing 123";
Dancer::Factory::Hook->instance->execute_hooks('after');

debug "test numero dos";

throughnothing

use v5.10;
#use JSON -convert_blessed_universally;

package MyJSON;
use base "JSON::PP";
use overload;
use Data::Dumper;
use Carp ();
use B ();
use Scalar::Util 'reftype';

throughnothing

package Test;
use Moose;

has m => ( is => 'rw', default => sub { "Hello, World!" } );

sub run {
    my $t = Test->new;
    print $t->m . "\n";
}