Lines Matching full:foo*
37 $foo = 42;
39 $cpt->share(qw($foo));
41 print ${$cpt->varglob('foo')} == 42 ? "ok $t\n" : "not ok $t\n"; $t++;
43 ${$cpt->varglob('foo')} = 9;
45 print $foo == 9 ? "ok $t\n" : "not ok $t\n"; $t++;
47 print $cpt->reval('$foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;
49 print $cpt->reval('$::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;
50 print $cpt->reval('$main::foo') == 9 ? "ok $t\n" : "not ok $t\n"; $t++;
52 print $cpt->reval('$test::foo') ? "not ok $t\n" : "ok $t\n"; $t++;
53 print $cpt->reval('${"test::foo"}') ? "not ok $t\n" : "ok $t\n"; $t++;
57 print $cpt->reval('$foo') ? "not ok $t\n" : "ok $t\n"; $t++;
60 # $Root::foo etc we would still see the original values!
63 print ${$cpt->varglob('foo')} ? "not ok $t\n" : "ok $t\n"; $t++;