gugod

#!/bin/sh
#
# For OSX, speak the content of the given web page.
#
# Example: say-url http://slashdot.org/
# 
 
w3m -T text/html -dump $* | say

gugod

default: --language zh-TW --format progress .

gugod

  datetime:
    distance_in_words:
      half_a_minute: "半分鐘"
      less_than_x_seconds:
        one: "不到一秒"
        other: "不到 {{count}} 秒"
      x_seconds:
        one: "一秒"
        other: "{{count}} 秒"
      less_than_x_minutes:

gugod

# name: has
# --
has ${1:attribute} => (is => "${2:rw}", isa => "${3:Str}");

gugod

# name: has
# --
has ${1:attribute} => (is => "${2:rw}", isa => "${3:Str}");

gugod

class BlankSlate
  instance_methods.each { |m| undef_method m unless m =~ /^__/ }
end

class Stuff < BlankSlate
  def initialize(obj)
    @obj = obj
  end

  def to_s

gugod

#!/usr/bin/env perl

use strict;
use 5.010;

my @foo = qw(1 2 3);
my @bar = qw(a b c);

say "right" if @foo == @bar;

gugod

#!/usr/bin/env perl -w
use strict;
use 5.010;
use Net::Twitter;
use DateTimeX::Easy;
use YAML;

my $username = $ARGV[0] || die "Give me an twitter username\n";

sub timecard_image_url {

gugod

package DB;

sub uplevel_args {
    my @foo = caller($_[0]+1);
    return @DB::args;
}

package BlockGiven;
use strict;
use Devel::Declare;

gugod

#!/usr/bin/perl -l
use encoding 'utf8';

for my $cchar ("\x{0302}", "\x{030f}") {
    print join " ", map { chr($_) . $cchar } 32..126;
    print "----";
}