动态函数注入文本::模板命名空间

Question

我使用下面的语法注入功能分为Text::Template所以它知道该函数的使用fill_in()时：

*Text::Template::GEN0::some_function = *SomeLibrary::some_function; 

我注意到，如果fill_in()被称为多一次，GEN0变为GEN1，然后GEN2 ...等等。

所以这只适用于fill_in被调用一次，因为只有GEN0命名空间被使用。

如何动态注入some_function到每个使用的命名空间？我知道它是这样的，但我不知道语法我会原封不动地使用：

my $i = 0; 
foreach my $item (@$items) { 
    # *Text::Template::GEN{i}::some_function = *SomeLibrary::some_function; 
    $i++; 

    # Call fill_in here 
} 

Answer 1

不需要在内部猜测。使用PREPEND选项：

use strict; 
use warnings; 

use Text::Template; 

sub MyStuff::foo { 'foo is not bar' }; 

my $tpl = Text::Template->new( 
        TYPE => 'STRING', 
        SOURCE => "{ foo() }\n", 
        PREPEND => '*foo = \&MyStuff::foo', 
       ); 


print $tpl->fill_in; 

结果：

% perl tt.pl 
foo is not bar 

Answer 2

这应该工作：

my $i = 0; 
foreach my $item (@$items) { 
    my $str = "Text::Template::GEN${i}::some_function"; 
    no strict "refs"; 
    *$str = *SomeLibrary::some_function; 
    *$str if 0; # To silence warnings 
    use strict "refs" 
    $i++; 

    # Call fill_in here 
}