yappo

2013-11-09 11:54:58.239939500 ./
2013-11-09 11:54:58.312218500 data/icon/
2013-11-09 11:54:58.312295500 data/icon/23bc376ae0dcdb1517691c816dd91b80b67e178ce6b663dad69ff42a73dfa301.png
2013-11-09 11:54:58.312347500 data/icon/3adefa587a472c98ba52103b60b6f3b83c62982bb2d4d3d01f49afcb3ecb6b9d.png
2013-11-09 11:54:58.312463500 data/icon/3b21ca8e8f4cb42692a9d8261b6dc383463b4b561394f1dc2966d18ac8ad47d0.png
2013-11-09 11:54:58.312576500 data/icon/40967f964cdce3e6ac9b5658e16a79d9783fb5dbba36eb0f3c622edb00f4ae82.png
2013-11-09 11:54:58.312603500 data/icon/59b6b8ad38a9daefc8603c121af316295113ab1a624040c0bcfb7a90b3996f34.png
2013-11-09 11:54:58.312706500 data/icon/69496e1e0ec167f814c57ef8eea53771a502445b794edacb57febb7e01966828.png
2013-11-09 11:54:58.312814500 data/icon/8d6a046eecc3980135c166793363af9547967e78aba84d31ede0d6f3544efb91.png
2013-11-09 11:54:58.312844500 data/icon/b7430e7cb8967b1c0568c62b5a7dc417b51dbf55ca347ddcf74e7310c0426cdd.png

yappo

# carton snapshot format: version 1.0
DISTRIBUTIONS
  Imager-0.97
    pathname: T/TO/TONYC/Imager-0.97.tar.gz
    provides:
      Imager 0.97
      Imager::Color 1.011
      Imager::Color::Float 1.005
      Imager::Color::Table 1.003
      Imager::CountColor 0.02

yappo

$ carton install
Installing modules using /private/tmp/im/cpanfile
Successfully installed Imager-0.97
Successfully installed Imager-File-PNG-0.89
Imager::File::JPEG is up to date. (0.88)
2 distributions installed
Complete! Modules were installed into /private/tmp/im/local

yappo

use strict;
use warnings;
use Path::Tiny;
use File::RotateLogs;

my $log = File::RotateLogs->new(
        logfile  => path('/tmp')->child('access_log.%Y%m%d%H%M'),
        linkname => path('/tmp')->child('access_log')
);

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 }