# -*-perl-*-
#
# test binding functions: BIND_NS => "All"
#
use
strict;
## Tests
my
$use_ns
;
define fn_in_global(x) { "in global"; }
implements( "foo" );
define fn_in_foo(x) { "in foo"; }
EOS1
is( fn_in_global(1),
"in global"
,
"Can call fn_in_global() as fn_in_global()"
);
is( foo::fn_in_foo(
"dummy"
),
"in foo"
,
"Can call foo->fn_in_foo() as foo::fn_in_foo()"
);
## End