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

{

yappo

use strict;
use warnings;

package Model {
    use parent 'Teng';
}

package Model::Schema {
    use Teng::Schema::Declare;
    table {

yappo

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

use Text::Xslate;

subtest 'scope ok' => sub {
    my $tx = Text::Xslate->new({
        syntax => 'TTerse'
    });

yappo

use strict;
use warnings;

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

my $irc = irc
    'irc.freenode.net',
    key      => 'example1',
    nickname => 'AnySan1',

yappo

use strict;
use warnings;
use utf8;
use 5.017;
use Config::Pit;
use Encode;
use Net::Twitter::Lite;

binmode STDOUT => 'utf8';

yappo

use strict;
use warnings;
use 5.017;
use utf8;

use B;
use Encode;

{
    sub MODIFY_CODE_ATTRIBUTES {