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
diff --git a/SConstruct b/SConstruct | |
index 3d8c336..768ac79 100644 | |
--- a/SConstruct | |
+++ b/SConstruct | |
@@ -230,7 +230,7 @@ with open('config.json', 'w') as f: | |
'CPPPATH': env.get('CPPPATH') or [], | |
'CXXFLAGS': env.get('CXXFLAGS'), | |
'PREFIX': env.get('PREFIX'), | |
- 'LIBS': ['tora'] + env.get('LIBS'), | |
+ 'LIBS': env.get('LIBS'), |
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
diff --git a/SConstruct b/SConstruct | |
index 3d8c336..c3a1ff0 100644 | |
--- a/SConstruct | |
+++ b/SConstruct | |
@@ -230,7 +230,7 @@ with open('config.json', 'w') as f: | |
'CPPPATH': env.get('CPPPATH') or [], | |
'CXXFLAGS': env.get('CXXFLAGS'), | |
'PREFIX': env.get('PREFIX'), | |
- 'LIBS': ['tora'] + env.get('LIBS'), | |
+ 'LIBS': env.get('LIBS'), |
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 Plack::BenchmarkerBuilder; | |
use strict; | |
use warnings; | |
use parent 'Plack::Builder'; | |
use Time::HiRes 'time'; | |
sub import { | |
my $class = shift; | |
Plack::Builder->export_to_level(1, @_); |
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 Test::More *; | |
my($one, $tow, $three) = '1:2:3'.split(/:/); | |
is($one, '1'); | |
is($tow, '2'); | |
is($three, '3'); | |
done_testing; | |
__END__ |
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 5.015; | |
use Benchmark ':all'; | |
my $x = 12345; | |
my $y = 12345; | |
my $z = 12345; |
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
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use lib 'lib'; | |
use AnySan; | |
use AnySan::Provider::IRC; | |
my $irc = irc |
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 common::sense; | |
use Test::More; | |
ok(1); | |
{ | |
local $TODO = 'asasda'; | |
ok(0); | |
}; | |
done_testing; | |
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
#!/usr/bin/env perl | |
=head1 NAME | |
idezawaman.pl - | |
=head1 WHY THIS NAME? | |
16:24 < Yappo> ちょっとしたツールかきたいのに良い名前が思い浮かばなくてかけてない | |
16:28 < teranishi> まかせなさい |
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 common::sense; | |
package Hoge; | |
sub BEGIN { | |
BEGIN {${^WARNING_BITS} = "<?3\000\017\360\017\300\360\3743\000\000"} | |
BEGIN { | |
$^H{'feature_say'} = q(1); | |
$^H{'feature_state'} = q(1); | |
$^H{'feature_switch'} = q(1); | |
} |
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 common::sense; | |
package Hoge { | |
use Devel::GlobalDestruction; | |
sub new { | |
my($class, $str) = @_; | |
bless \$str, $class; | |
} | |
sub DESTROY { | |
say '-----------------------: ' . ${ $_[0] }; |