D::P::I18n test case

i18ntest.pm

package i18ntest::I18N::en;
use base 'i18ntest::I18N';
our %Lexicon = ( hello => 'Hello' );

package i18ntest::I18N::fr;
use base 'i18ntest::I18N';
our %Lexicon = ( hello => 'Bonjour' );


package i18ntest;
use Dancer ':syntax';
use lib '/home/davidp/dev/github/dancer-plugin-i18n/lib';
use Dancer::Plugin::I18n;
use Dancer::Plugin::DebugDump;
our $VERSION = '0.1';


before_template  sub {
    shift->{codereftest} = sub { "Hello from coderef" };
};

get '/' => sub {
    template 'index';
};

true;

index.tt

Oh, <%  l('hello') %>!

<br />
<% # languages('fr') %>

Or, if you're French, <% l('hello') %>