For [GH #177] - Add $site->get_entity_symbol($entns, $entity_name)

Author: hkoba

Lite/Factory.pm

@@ -141,6 +141,7 @@ use YATT::Lite::Util qw/lexpand globref untaint_any ckrequire dofile_in
                         raise_psgi_dump
                         raise_response
                         trimleft_length
+                        get_entity_symbol
 		       /;
 
 use YATT::Lite::XHF ();

Lite/Util.pm

@@ -1065,6 +1065,12 @@ sub reencode_malformed_utf8 {
   $bytes;
 }
 
+sub get_entity_symbol {
+  my ($pack, $entns, $entity_name) = @_;
+  my $symbol_name = join("_", entity => $entity_name);
+  look_for_globref($entns, $symbol_name);
+}
+
 #
 # to put all functions into @EXPORT_OK.
 #

t/util_other.t

@@ -76,4 +76,20 @@ use Test::More;
     , "safe_render with raise-able connection";
 }
 
+{
+  package
+    t_entns1;
+  sub entity_foo { "FOO" }
+
+  package main;
+  is(YATT::Lite::Util->get_entity_symbol('t_entns1', 'foo'), \*t_entns1::entity_foo
+     , "YATT::Lite::Util->get_entity_symbol"
+   );
+
+  is(YATT::Lite::Util->get_entity_symbol('t_entns1', 'missing'), undef
+     , "YATT::Lite::Util->get_entity_symbol for unknown name"
+   );
+
+}
+
 done_testing();