yappo

class Foo {
    sub new {
    }
}
Foo.new();

yappo

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'),

yappo

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'),

yappo

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, @_);

yappo

use Test::More *;

my($one, $tow, $three) = '1:2:3'.split(/:/);
is($one, '1');
is($tow, '2');
is($three, '3');

done_testing;

__END__

yappo

use strict;
use warnings;
use 5.015;

use Benchmark ':all';

my $x = 12345;
my $y = 12345;
my $z = 12345;

yappo

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';

use AnySan;
use AnySan::Provider::IRC;


my $irc = irc

yappo

use common::sense;
use Test::More;
ok(1);
{
    local $TODO = 'asasda';
    ok(0);
};
done_testing;

yappo

#!/usr/bin/env perl

=head1 NAME

idezawaman.pl - 

=head1 WHY THIS NAME?

  16:24 < Yappo> ちょっとしたツールかきたいのに良い名前が思い浮かばなくてかけてない
  16:28 < teranishi> まかせなさい

yappo

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);
    }