This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!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({ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
use strict; | |
use warnings; | |
{ | |
package Foo; | |
use Moose::Role; | |
sub foo { | |
warn 'here'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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}; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
use strict; | |
use warnings; | |
use utf8; | |
use Test::More; | |
{ | |
my $hash = {}; | |
$hash->{foobar} = 'hogehoge'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Config::Pit; | |
use DateTime; | |
use YAML; | |
{ | |
package Analytics::Datum; | |
use Moose; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
use strict; | |
use warnings; | |
{ | |
package MyRole; | |
use Moose::Role; | |
} | |
{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
use strict; | |
use warnings; | |
use Net::Google::Spreadsheets; | |
use Config::Pit; | |
use Test::More; | |
my $c = pit_get('google.com'); # or your hashref |