インスタンス作るの面倒なので package Dumpvalue::Lite; use strict; use warnings; use Dumpvalue;use vars qw(@EXPORT); @EXPORT = qw(Dumpvalue);our $VERSION = 0.01;sub Dumpvalue { my $dumpval = Dumpvalue->new; $dumpval->dumpValue(@_); }1;適当…

こんな感じでおさまりそう。 文字コードもこれでいい感じに。 package Geography::JapanesePrefectures::Walker; use strict; use warnings; use Carp; use Scalar::Util qw(blessed); use UNIVERSAL; use Encode; use List::MoreUtils qw/uniq firstval/; u…

TTではこんな感じで使うべし。 package Template::Plugin::JapanesePrefectures; use strict; use warnings; our $VERSION = 0.01;use Template::Plugin; use base qw(Template::Plugin); use Geography::JapanesePrefectures::Walker;sub new { my $class =…