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
#!perl | |
use strict; | |
use warnings; | |
use DateTime; | |
use DateTime::TimeZone; | |
for my $timezone (DateTime::TimeZone->all_names) { | |
warn sprintf('%20s / %s', $timezone, DateTime->now(time_zone => $timezone)->strftime('%z')); | |
} |
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
// ==UserScript== | |
// @name Slider-Interface-of-Hatena-Bookmark's-Threshold | |
// @namespace http://d.hatena.ne.jp/Cside | |
// @include http://b.hatena.ne.jp/* | |
// ==/UserScript== | |
function inputAndCount(mode) { | |
var threshold; | |
var loc = location.href; |
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
#!perl | |
use strict; | |
use warnings; | |
use Readonly; | |
use Net::Twitter::Lite; | |
Readonly my $following_count_limit => 10; | |
my $consumer_key = 'YOUR_CONSUMER_KEY'; |
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
key.setGlobalKey(['C-c', 'i'], function (ev, arg) { | |
userscript.installPluginFromURL(window.content.document.location.href); | |
}, 'install-plugin-from-this-page'); |
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
This page was generated from the template "templates/exception.html.ep". | |
Oops: Unknown opcode 'super' on [5] at /Users/shibazaki/perl5/perlbrew/perls/perl-5.8.9/lib/site_perl/5.8.9/darwin-2level/Text/Xslate.pm line 288. | |
283: my $cache_mtime; | |
284: if($self->{cache} < 2) { | |
285: $cache_mtime = $fi->{cache_mtime} || 0; | |
286: } | |
287: | |
288: $self->_assemble($asm, $file, $fi->{fullpath}, $fi->{cachepath}, $cache_mtime); |
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 strict; | |
use warnings; | |
my $test = undef; | |
for my $p (@{ $test }) { | |
} |
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 strict; | |
use warnings; | |
my $test = undef; | |
for my $p (@{ $test }) { | |
warn '========='; | |
} |
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 strict; | |
use warnings; | |
use Memoize qw(flush_cache); | |
my $t = test::Cache->new; | |
warn $t->rand_method('test2'); | |
warn $t->rand_method('test1'); | |
warn $t->rand_method('test2'); | |
warn $t->rand_method('test1'); |
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::Schema; | |
use strict; | |
use warnings; | |
use Teng::Schema::Declare; | |
Teng::Schema::Declare->load_plugin('Column::DateTime'); | |
table { | |
name "tags"; | |
pk "id"; |