Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea-www.harvard.edu/~dburke/perl-slang/examples/bind_many Дата изменения: Mon Jan 10 02:51:21 2005 Дата индексирования: Tue Oct 2 07:56:24 2012 Кодировка: Поисковые слова: apod

use Inline 'SLang' => Config => BIND_NS => [ "Global", "foo" ];
use Inline 'SLang' => <<'EOS1';
define fn_in_global(x) { "in global"; }
implements( "foo" );
define fn_in_foo(x) { "in foo"; }
EOS1

printf "I am %s\n", foo::fn_in_foo("dummyval");
printf "I am %s\n", fn_in_global("dummyval");