annotate _test/Test/Resources/locale/en_INF2/Strings.p @ 393:69a1f1508696

minor security refactoring
author cin
date Fri, 14 Feb 2014 16:41:12 +0400
parents 2eed076cb944
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
378
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
1 use utf8;
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
2 use strict;
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
3 {
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
4 HelloMessage => sub {
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
5 my ($this,$args) = @_;
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
6
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
7 return "I know you, $args->{name}!";
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
8 }
2eed076cb944 rewritten IMPL::Resources::Strings + tests
cin
parents:
diff changeset
9 };