Lines Matching full:foo*
25 $Root::foo = "visible";
29 $Root::foo .= "";
49 print $foo eq 'visible' ? "ok 2\n" : "not ok 2\n";
50 print $main::foo eq 'visible' ? "ok 3\n" : "not ok 3\n";
57 $foo = "ok 8\n";
65 $cpt->share(qw($foo %bar @baz *glob sayok));
72 print $foo ? $foo : "not ok 8\n";
77 $foo =~ s/8/14/;
83 print $foo, $bar{new}, "@glob\n";
85 $Root::foo = "not ok 17";
87 ${$cpt->varglob('foo')} = "ok 17";
91 print "$Root::foo\n";
115 my $t_scalar2 = $cpt->reval('die "foo bar"; 1');
117 print $@ =~ /foo bar/ ? "ok 29\n" : "not ok 29\n";