lopnor

#!perl
use strict;
use warnings;
use utf8;
use Text::MeCab;
use Encode ();

my $input = Encode::decode('utf-8', $ARGV[0]);

my $mecab = Text::MeCab->new({

lopnor

#!perl
use strict;
use warnings;

{
    package Foo;
    use Moose::Role;

    sub foo {
        warn 'here';

lopnor

#!perl
use strict;
use warnings;
use Test::More tests => 2;

{
    package MySchema;
#    use base qw(DBIx::Class::Schema::Loader);
#    __PACKAGE__->loader_options();
    use base qw(DBIx::Class::Schema);

lopnor

# The following locales
#
#	C C POSIX POSIX af_ZA af_ZA.ISO8859-1 af_ZA.ISO8859-15
#	af_ZA.UTF-8 am_ET am_ET.UTF-8 be_BY be_BY.CP1131 be_BY.CP1251
#	be_BY.ISO8859-5 be_BY.UTF-8 bg_BG bg_BG.CP1251 bg_BG.UTF-8
#	ca_ES ca_ES.ISO8859-1 ca_ES.ISO8859-15 ca_ES.UTF-8 cs_CZ
#	cs_CZ.ISO8859-2 cs_CZ.UTF-8 da_DK da_DK.ISO8859-1 da_DK.ISO8859-15
#	da_DK.UTF-8 de_AT de_AT.ISO8859-1 de_AT.ISO8859-15
#	de_AT.UTF-8 de_CH de_CH.ISO8859-1 de_CH.ISO8859-15
#	de_CH.UTF-8 de_DE de_DE.ISO8859-1 de_DE.ISO8859-15

lopnor

# The following locales
#
#	C C POSIX POSIX af_ZA af_ZA.ISO8859-1 af_ZA.ISO8859-15
#	af_ZA.UTF-8 am_ET am_ET.UTF-8 be_BY be_BY.CP1131 be_BY.CP1251
#	be_BY.ISO8859-5 be_BY.UTF-8 bg_BG bg_BG.CP1251 bg_BG.UTF-8
#	ca_ES ca_ES.ISO8859-1 ca_ES.ISO8859-15 ca_ES.UTF-8 cs_CZ
#	cs_CZ.ISO8859-2 cs_CZ.UTF-8 da_DK da_DK.ISO8859-1 da_DK.ISO8859-15
#	da_DK.UTF-8 de_AT de_AT.ISO8859-1 de_AT.ISO8859-15
#	de_AT.UTF-8 de_CH de_CH.ISO8859-1 de_CH.ISO8859-15
#	de_CH.UTF-8 de_DE de_DE.ISO8859-1 de_DE.ISO8859-15

lopnor

use strict;
use warnings;
use Test::More;
use Data::Dumper;

#sub XML::LibXML::bootstrap{ die }
BEGIN {
unshift @INC, sub {die if $_[0] eq 'XML::LibXML'; return};
}

lopnor

#!perl
use strict;
use warnings;
use utf8;
use Test::More;

{
    my $hash = {};

    $hash->{foobar} = 'hogehoge';

lopnor

#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit;
use DateTime;
use YAML;

{
    package Analytics::Datum;
    use Moose;

lopnor

#!perl
use strict;
use warnings;

{
    package MyRole;
    use Moose::Role;

}
{

lopnor

#!perl
use strict;
use warnings;

use Net::Google::Spreadsheets;
use Config::Pit;
use Test::More;

my $c = pit_get('google.com'); # or your hashref