I hereby claim:
- I am iizukanao on github.
- I am iizukanao (https://keybase.io/iizukanao) on keybase.
- I have a public key whose fingerprint is 5BDB 1C5A CD96 E31E C52B 6D44 2F55 F78B 6D3C 88E3
To claim this, I am signing this object:
var counter = 0; | |
function queueNext() { | |
if (++counter === 100) { | |
return; | |
} | |
console.log(counter); | |
setTimeout(function() { | |
queueNext(); | |
}, 12.34); |
<!doctype html> | |
<head> | |
<title>Live streaming with Strobe Media Playback</title> | |
<meta charset=utf-8> | |
<meta name=viewport content="width=device-width, user-scalable=no"> | |
</head> | |
<body> | |
<script src="lib/swfobject.js"></script> | |
<script src="lib/ParsedQueryString.js"></script> |
I hereby claim:
To claim this, I am signing this object:
use Test::Base; | |
use File::Temp qw/tempdir/; | |
plan 'no_plan'; | |
BEGIN { $ENV{ARK_HOME} = tempdir( CLEANUP => 1 ) } | |
{ | |
package T::Models; | |
use Ark::Models '-base'; |
diff -Nur Object-Container-0.11.orig/Makefile.PL Object-Container-0.11/Makefile.PL | |
--- Object-Container-0.11.orig/Makefile.PL 2010-10-05 18:54:58.000000000 +0900 | |
+++ Object-Container-0.11/Makefile.PL 2010-10-20 20:21:20.000000000 +0900 | |
@@ -5,6 +5,7 @@ | |
requires 'Carp'; | |
requires 'Class::Accessor::Fast'; | |
requires 'parent'; | |
+requires 'B::Hooks::EndOfScope'; | |
recommends 'Exporter::AutoClean'; |
DBI Exception: DBD::mysql::st execute failed: Duplicate entry '(null)' for key 'apns_token' [for Statement "INSERT INTO user_apns ( apns_token, created_date, user) VALUES ( ?, ?, ? )" with ParamValues: 0="(null)", 1='2011-01-31 18:02:49', 2='407'] at /home/homepage/perl5/lib/perl5/DBIx/Class/Schema.pm line 1026 | |
..続く | |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use lib 'lib'; | |
use MyApp; | |
my $app = MyApp->new; | |
$app->setup; |
--type-set | |
coffeescript=.coffee | |
--type-add | |
html=.mt,text=.txt,coffeescript=.coffee |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Net::GrowlClient; | |
use Getopt::Long::Descriptive; | |
my ($opt, $usage) = describe_options( | |
`basename $0`." %o", | |
[ "name|n:s", "Set the name of the application that sends the notification", {default => "growlnotify"} ], | |
[ "priority|p:i", "Specify an int or named key", {default => 0}, ], |
fib = (n) -> | |
throw new Error "n must be positive integer" if n < 0 | |
switch n | |
when 0 then 0 | |
when 1 then 1 | |
else | |
fib(n-1) + fib(n-2) |