$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");