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

use Inline 'SLang' => Config => BIND_NS => ["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");

# the following will not work since fn_in_global() is in the
# Global namespace which was not listed in the BIND_NS option
#
printf "I am %s\n", fn_in_global("dummyval");