Select Code to Download

$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;
...

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