$c->model("DB::$resultset")->do_something({ language => sub{ $c->maketext( @_ ); } }); #### $c->log->debug( sprintf( "maketext: '%s'", $c->maketext("menu.title.news") ) ); $c->log->debug( sprintf( "model maketext: '%s'", $c->model("maketext")->maketext("menu.title.news") ) ); #### [debug] maketext: 'News Index' [debug] model maketext: 'News Index' #### #!/usr/bin/perl use strict; use warnings; use FindBin qw( $Bin ); use lib "$Bin/../lib"; use App::Maketext; use Config::ZOMG; my $config = Config::ZOMG->new( name => 'App' ); my $config_hash = $config->load; my $maketext_info = $config_hash->{"Model::Maketext"}; my $lang = TopTable::Maketext->new($maketext_info); printf "%s\n", $lang->maketext( "menu.title.news" ); #### maketext doesn't know how to say: menu.title.news as needed at bin\maketext-demo.pl line 16. #### my $dir = Path::Class::Dir->new( "$Bin/..", "root", "locale" ); my $lang = TopTable::Maketext->new(directories => $dir); #### my $dir = Path::Class::Dir->new( "$Bin/..", "root", "locale" ); my $lang = TopTable::Maketext->new(directories => $dir, locales => "en-GB");