yappo

[% KSGK_CONTENTS 'daigorou' %]
sub wine {
}
[% END %]

yappo

requires 'Acme::Hidek' => '43';

yappo

# LTSV って言いたいだけな設問でマジひどいｗ
package Log;
use strict;
use warnings;
use Time::Piece;

sub new {
    my($class, %opts) = @_;

    bless { %opts }, $class;

yappo

use strict;
use warnings;
use Test::More;

my $kansai = 'gtgtsgipgttptinggipsppaigsesgpetgstpatetisiesagaeaigttetepitiatsegssieeeeatepaaiagtpieataatppiitgiapsteitatiiatpetetetttgpetpaasipttssstpeeeggtiagtttegtiipestsasgpsepaasapttgattgiatppegitiatpasgatgepttggapesaeetaeissttggieietgspagesiipestipggstttpateptitiaetottissgggtttaipappgstsptttgtpispattgegstltiappseisapgistaiagteeiptptpisaieisagstapeteietgteiisgtiptstgtstasspeatspptitttatteastsgtptgtasggpniaaeteaisett';

my $zaim = '';
for my $takako (split //, 'neapolitan') {
    $zaim .= "([^$takako]*)($takako)";
}

yappo

use strict;
use warnings;
use Test::More;

use Capture::Tiny ':all';
use Devel::Peek;

package Yappo {
    sub proto () { 1 }
};

yappo

use strict;
use warnings;
use Test::More;

use Capture::Tiny ':all';
use Devel::Peek;

package Yappo {
    sub num      { 1 }
    sub proto () { 1 }

yappo

#!/bin/sh

function httpstatus () {
    result=`curl -kL http://www.studyinghttp.net/status_code 2> /dev/null | grep '<li><a href="#Code..."><code class="Status">...</code> ' | sed -e 's/<li><a href="#Code..."><code class="Status">//' -e 's/<\/code>//' -e 's/<\/a><\/li>//' | grep ^$1`
    if [ "$result" = "" ]; then
        curl -kL http://www.studyinghttp.net/status_code 2> /dev/null | grep '<li><a href="#Code..."><code class="Status">...</code> ' | sed -e 's/<li><a href="#Code..."><code class="Status">//' -e 's/<\/code>//' -e 's/<\/a><\/li>//' | grep $1
    else
  echo "$result"
    fi
}

yappo

package Log::Dispatch::Screen::Color::Emotional;
use strict;
use warnings;
use parent 'Log::Dispatch::Screen::Color';

our $EMOTION = {
    debug    => '(☼ Д ☼)',
    info     => 'm9(^Д^)',
    warn     => '(´･ω･`)',
    critical => '(； Д ) ゜ ゜',

yappo

use strict;
use warnings;

sub try (&;@) {
    my($cb, @catches) = @_;

    local $@;
    my $wantarray = wantarray;

    my @ret;

yappo

use strict;
use warnings;
use Test::More;

{
    package Model;
    use parent 'Teng';
}

{