Select Code to Download

package MyApp::Maketext;

use strict;
...
use parent qw(CatalystX::I18N::Maketext);

1;

#!/usr/bin/perl

use strict;
...
  directories => [$dir], # Required
  gettext_style => 0, # Optional, Default 1
);

my $lang = TopTable::Maketext->get_handle;
printf "%s\n", $lang->maketext( "menu.title.news" );

my $lang = TopTable::Maketext->new;
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 23.