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 Test::More; | |
use strict; | |
use warnings; | |
use Test::Builder::Tester; | |
test_out("not ok 1 - foo"); | |
test_fail(+1); | |
fail("foo"); | |
test_test("fail works"); |
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
#!/usr/bin/env perl | |
# Usage: /AVAILABILITY [here|lunch|meeting] | |
sub cmd_availability { | |
# data - contains the parameters for /HELLO | |
# server - the active server in window | |
# witem - the active window item (eg. channel, query) | |
# or undef if the window is empty | |
my ($data, $server, $witem) = @_; | |
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
#!/usr/bin/env perl | |
# Usage: /AVAILABILITY [here|lunch|meeting] | |
sub cmd_availability { | |
# data - contains the parameters for /HELLO | |
# server - the active server in window | |
# witem - the active window item (eg. channel, query) | |
# or undef if the window is empty | |
my ($data, $server, $witem) = @_; | |
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
*.sw? |
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
package My::Class; | |
use strict; | |
use warnings; | |
use Moose; | |
use MooseX::AttributeHelpers; | |
use MooseX::Types::Moose qw/ArrayRef Int/; | |
use MooseX::Types -declare => [qw(Thingy ThingyList)]; | |
subtype Thingy, |
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
#!/usr/bin/env perl | |
# An irssi plugin that makes it easier to change your nick and away status to | |
# make your availability really obvious (used at $work) | |
# | |
# Simple examples are: | |
# gone --> gone = "/availability gone"; | |
# idme = "/msg NickServ IDENTIFY s3kritw0rd"; | |
# here --> here = "/availability here; /idme"; |
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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use feature ':5.12'; | |
use version; | |
use Text::SimpleTable; | |
my @versionstrings = ( | |
'0.0.4', |
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
public void copy_db() { | |
// copy the db to the sdcard | |
try { | |
File sd = Environment.getExternalStorageDirectory(); | |
if (sd.canWrite()) { | |
String currentDBPath = this.myContext.getDatabasePath(this.getDatabaseName()).toString(); | |
// use out package as the place to store files | |
String backupDirectory = "/" + this.myContext.getPackageName(); |
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
#!/usr/bin/env bash | |
# vim: ts=8 sts=4 et sw=4 sr sta | |
# only do the updates if this file is newer than our git config file | |
# (that means we've some something here) | |
if test $BASH_SOURCE -nt $HOME/.gitconfig; then | |
echo "[Updating git aliases...]"; | |
# exit immediately if we have the lockfile | |
if [ -f $HOME/.bashrcd.gitalias.lock ]; then |
OlderNewer