diff options
| -rw-r--r-- | MANIFEST | 2 | ||||
| -rw-r--r-- | Makefile.PL | 7 | ||||
| -rw-r--r-- | lib/AdminPanel/Shared/Locales.pm | 2 | ||||
| -rw-r--r-- | t/01-Locales.t | 14 |
4 files changed, 22 insertions, 3 deletions
@@ -39,6 +39,7 @@ lib/AdminPanel/Rpmdragora/widgets.pm lib/AdminPanel/SettingsReader.pm lib/AdminPanel/Shared.pm lib/AdminPanel/Shared/Hosts.pm +lib/AdminPanel/Shared/Locales.pm lib/AdminPanel/Shared/Services.pm lib/AdminPanel/Shared/Users.pm Makefile.PL @@ -107,6 +108,7 @@ scripts/hostmanager scripts/mgaAddUser settings.conf t/00-load.t +t/01-Locales.t t/boilerplate.t t/manifest.t t/pod-coverage.t diff --git a/Makefile.PL b/Makefile.PL index 171cd08..ea7cd17 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -20,8 +20,11 @@ WriteMakefile( PREREQ_PM => { #'ABC' => 1.6, #'Foo::Bar::Module' => 5.0401, - "Moose" => 0, - "Config::Hosts" => 0, + "Moose" => 0, + "Config::Hosts" => 0, + # AdminPanel::Shared::Locales + "Locale::gettext" => 0, + "Text::Iconv" => 0, }, EXE_FILES => [ qw( scripts/adminMouse scripts/adminService diff --git a/lib/AdminPanel/Shared/Locales.pm b/lib/AdminPanel/Shared/Locales.pm index 261454a..6eac37c 100644 --- a/lib/AdminPanel/Shared/Locales.pm +++ b/lib/AdminPanel/Shared/Locales.pm @@ -27,7 +27,7 @@ perldoc AdminPanel::Shared::Locales =head1 SEE ALSO -Locale::gettext Text::iconv and gettext +Locale::gettext Text::Iconv and gettext =head1 AUTHOR diff --git a/t/01-Locales.t b/t/01-Locales.t new file mode 100644 index 0000000..59d3455 --- /dev/null +++ b/t/01-Locales.t @@ -0,0 +1,14 @@ +#!perl -T +use 5.006; +use strict; +use warnings FATAL => 'all'; +use Test::More; + +BEGIN { + use_ok( 'AdminPanel::Shared::Locales' ) || print "Locales failed!\n"; +} + +ok( my $o = AdminPanel::Shared::Locales->new({domain_name => 'test_AdminPanel_Shared_Locales'}), 'create'); +is( $o->N_("test"), 'test', 'N' ); + +done_testing; |