bayashi

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode qw/encode_utf8/;

my @list = split //, 'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんがぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ';
my $words = [qw/
    おかね げんきん たいきん
    ゆめ きぼう じゆう せいこう

bayashi

package Plack::Middleware::Debug::StackTrace;
use strict;
use parent qw/Plack::Middleware::Debug::Base/;
use Devel::StackTrace;
our $VERSION = '0.01';

our $StackTraceClass = "Devel::StackTrace";
# Optional since it needs PadWalker
eval {
    require Devel::StackTrace::WithLexicals;

bayashi

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;
use URI::Fetch;
use Cache::FileCache;
use Data::Dumper;

my $TSV_URL = 'http://www.tepco.co.jp/forecast/html/images/juyo-j.csv2';

bayashi

#!/usr/bin/perl
use strict;
use warnings;
use Linux::Smaps;

my $proc_name = 'starman';#shift or die "usage: $0 PROC_NAME";

my $proc_list = `ps a|grep $proc_name` || '';

my @pid_list;

bayashi

package MojoMojo::Formatter::NicoVideo;
use strict;
use warnings;
use parent qw/MojoMojo::Formatter/;

=head1 NAME

MojoMojo::Formatter::NicoVideo - Embed Nico Nico Doga player

=cut