Skip to content

Instantly share code, notes, and snippets.

View typester's full-sized avatar
😇

Daisuke Murase typester

😇
580 followers · 141 following
View GitHub Profile
@typester
typester / test.t
Created January 27, 2009 02:24
use Test::More tests => 1;
ok("ok");
@typester
typester / alc.el
Created January 26, 2009 12:23
;;; -*- coding: utf-8; mode: emacs-lisp; -*-
;;; alc.el
;; Author: Daisuke Murase <typester@cpan.org>
;; Keywords: alc
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
@typester
typester / dopplr.el
Created January 23, 2009 05:28
;;; -*- coding: utf-8; mode: emacs-lisp; -*-
;;; dopplr.el
;; Author: Daisuke Murase <typester@cpan.org>
;; Keywords: dopplr
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
@typester
typester / outputz-growl.pl
Created January 9, 2009 06:25
#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit;
use Net::Growl;
use WWW::Mechanize;
my $conf = pit_get('outputz.com', require => { key => 'your outputz secret key' });
@typester
typester / 03-html.t
Created December 24, 2008 01:54
#!perl
use strict;
use Test::More tests => 4;
BEGIN { use_ok("Text::AutoLink") }
my $original = <<EOS;
<html><body><a href="http://search.cpan.org">http://search.cpan.org</a></body></html>
EOS
my $auto = Text::AutoLink->new;
@typester
typester / rtmp connect dumper
Created December 10, 2008 11:59
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin::libs;
use YAML;
use Sniffer::RTMP;
my $dev = $ARGV[0] or die 'require device name';
@typester
typester / gist:32269
Created December 5, 2008 06:56
--- flex_sdk_3.2.0.3958_mpl 2008-12-05 15:56:19.000000000 +0900
+++ flex_sdk_3.2.0.3958 2008-12-05 15:56:25.000000000 +0900
@@ -3,6 +3,10 @@
aasdoc.bat
acompc
acompc.bat
+adl
+adl.exe
+adt
+adt.bat
@typester
typester / gist:30395
Created November 30, 2008 06:39
use strict;
use warnings;
use HTTP::Request::Common;
use LWP::UserAgent;
use YAML;
use JSON::Syck;
my $ua = LWP::UserAgent->new;
@typester
typester / simple chat server with kamaitachi
Created November 27, 2008 05:10
package Service::Chat;
use Moose;
extends 'Kamaitachi::Service';
with qw/Kamaitachi::Service::AutoConnect
Kamaitachi::Service::Broadcaster
/;
sub on_invoke_send {
@typester
typester / simple echo server
Created November 25, 2008 09:01
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin::libs;
use Kamaitachi;
{
package Service::Echo;