ryochin

@interface MoonPhase : NSObject {
@private
	NSDate *now;
}

- (float) phase;

@end

// ---------------------------------------

ryochin

#!/usr/bin/perl --

use strict;
use Text::Xslate;

my $xs = Text::Xslate->new(
	syntax => 'TTerse',
);

my $template = <<'END';

ryochin

#!/usr/bin/perl --

use strict;
use Text::Xslate;

my $xs = Text::Xslate->new(
	syntax => 'TTerse',
);

my $template = <<'END';

ryochin

#!/usr/bin/perl --

use strict;
use Net::Ping;

my $p = Net::Ping->new("syn");
$p->port_number( scalar getservbyname("http", "tcp") );
$p->hires(1);

my $host = shift @ARGV // "127.0.0.1";

ryochin

#!/usr/bin/perl --
# fill real rss feed url for Fresh Reader broken OPML

use strict;
use warnings;
use Path::Class qw(file);
use CGI;
use Feed::Find;

use utf8;

ryochin

#!/usr/bin/perl --
# see also: mytop(1)

use strict;
use warnings;
use DBI;
use Cache::SharedMemoryCache;

my $config = {
	dsn => $ENV{'mysqlconnection'} || 'DBI:mysql:mysql',

ryochin

#!/bin/bash
# 
# for sox-14.4.0 on OSX 10.8 + Xcode 4.5

################################################################################
#
# Copyright (c) 2008-2009 Christopher J. Stawarz
#
# Permission is hereby granted, free of charge, to any person
# obtaining a copy of this software and associated documentation files

ryochin

# 
[color]
  branch = auto
	diff = auto
#	diff = false
	status = auto

[color "branch"]
	current = yellow reverse
	local = yellow

ryochin

#!/usr/bin/env perl
# split perl source/pod to save to Mod.pm/Mod.pod

use strict;
use warnings;
use Path::Class qw(file);
use Pod::Clipper;

my $file = shift @ARGV or die "usage: $0 <perl module file>";

ryochin

#!/usr/bin/env perl

use strict;
use warnings;
use Term::ANSIColor qw(:constants);
use Number::Bytes::Human ();

use utf8;

my $from = shift @ARGV or die "usage: $0 <from> <to>";