#
# This file is part of Dancer-Plugin-Locale-Wolowitz
#
# This software is copyright (c) 2016 by Natal Ngétal.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package
t::lib::TestApp;
use
Dancer;
get
'/'
=>
sub
{
my
$tr
= loc(
'welcome'
);
return
$tr
;
};
get
'/no_key'
=>
sub
{
my
$tr
= loc(
'goodbye'
);
return
$tr
;
};
get
'/complex_key'
=>
sub
{
my
$path
= setting(
'appdir'
);
my
$tr
= loc(
'path_not_found %1'
, [
$path
]);
return
$tr
;
};
get
'/twice_same_request'
=>
sub
{
return
loc(
"welcome"
) .
' '
. loc(
"hello"
);
};
1;