Searched full:foo* (Results 476 - 500 of 797) sorted by relevance

<<11121314151617181920>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/
H A Dencoding.pm344 use encoding "foo"
352 use encoding "foo";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/
H A DEncoder.t34 my $e = encoder("foo", "ascii");
H A Djperl.t86 no strict 'vars'; # fools
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Fcntl/t/
H A Dfcntl.t21 if (syswrite($wo, "foo") == 3) {
28 if ($read eq "foo") {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/
H A DGlob.xs24 errfunc(const char *foo, int bar) {
H A Dbsd_glob.c58 * expand ~user/foo to the /home/dir/of/user/foo
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/t/
H A Dglobal.t116 package Foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_sel.t21 $sel->add([\*STDOUT, 'foo']) == 1 or print "not ";
103 $fd = $sel->exists([1, 'foo']);
H A Dio_unix.t27 eval {IO::Socket::pack_sockaddr_un('/foo/bar') || 1}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/List/
H A DUtil.pm114 $foo = first { defined($_) } @list # first defined value in @list
115 $foo = first { $_ > $value } @list # first value in @list which
120 $foo = reduce { defined($a) ? $a : wanted($b) ? $b : undef } undef, @list
130 $foo = max 1..10 # 10
131 $foo = max 3,9,12 # 12
132 $foo = max @bar, @baz # whatever
136 $foo = reduce { $a > $b ? $a : $b } 1..10
144 $foo = maxstr 'A'..'Z' # 'Z'
145 $foo = maxstr "hello","world" # "world"
146 $foo
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/Scalar/
H A DUtil.pm164 $scalar = "foo";
170 $obj = bless [], "Foo";
171 $class = blessed $obj; # "Foo"
178 $foo = dualvar 10, "Hello";
179 $num = $foo + 2; # 12
180 $str = $foo . " world"; # Hello world
194 $ref = \$foo;
218 sub foo { readonly($_[0]) }
220 $readonly = foo($bar); # false
221 $readonly = foo(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dfirst.t32 my $foo = first { $_->[1] le "e" and "e" le $_->[2] }
34 print "not " unless $foo->[0] eq 'd';
45 ($x) = foobar();
49 sub foobar { first { !defined(wantarray) || wantarray } "not ","not ","not " } subroutine
H A Dlln.t43 ok(!!looks_like_number("foo"), '');
H A Dreduce.t54 ($x) = foobar();
57 sub foobar { reduce { (defined(wantarray) && !wantarray) ? '' : 'not ' } 0,1,2,3 } subroutine
H A Drefaddr.t36 my $obj = bless $r, 'FooBar';
41 package FooBar; package
H A Dweak.t61 my $x = "foo";
105 my $x = "foo";
175 my $x = "foo";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/
H A Dbase64.t35 print "not " unless decode_base64(encode_base64("foo")) eq "foo";
H A Dquoted-print.t47 ["College football is a game which would be much more interesting if the faculty played instead of the students, and even more interesting if the
49 "College football is a game which would be much more interesting if the facu=
90 ["foo \t ", "foo=20=09=20"],
91 ["foo\t \n \t", "foo=09=20\n=20=09"],
125 print "not " unless decode_qp("foo \n\nfoo =\n\nfoo=20\n\n") eq
126 "foo\n\nfoo \nfoo \n\n";
130 print "not " unless decode_qp("foo \r\n\r\nfoo =\r\n\r\nfoo=20\r\n\r\n") eq
131 "foo\
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/NDBM_File/t/
H A Dndbm.t119 $h{'foo'} = '';
133 my @foo = @h{0..200};
134 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
136 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ODBM_File/t/
H A Dodbm.t119 $h{'foo'} = '';
133 my @foo = @h{0..200};
134 print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
136 print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/
H A DOpcode.pm296 @diff = opset_diff($opset1, $opset2) => ('foo', '!bar', ...)
H A DSafe.pm158 # XXX perhaps new Safe 'Root', mask => $mask, foo => bar, ...;
189 # The 'my $foo' is needed! Without it you get an
204 #delete $leaf_symtab->{'foo'};
206 # my $foo = undef ${"$stem\::"}{"$leaf\::"};
599 Examples of legal names are '$foo' for a scalar, '@foo' for an
600 array, '%foo' for a hash, '&foo' or 'foo' for a subroutine and '*foo'
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/
H A DPOSIX.pm11 # Grandfather old foo_h form to new :foo_h form
H A DPOSIX.pod217 $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
245 $fd = POSIX::creat( "foo", 0611 );
420 pathname on the filesystem which holds C</var/foo>.
422 $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
475 $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
788 $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
900 $fd = POSIX::open( "foo" );
904 $fd = POSIX::open( "foo", &POSIX::O_RDWR );
908 $fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC );
912 $fd = POSIX::open( "foo",
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
H A Dposix.t206 my $foo = $!;
210 is( $errno + 0, $foo + 0, 'autoloading and errno() mix' );

Completed in 69 milliseconds

<<11121314151617181920>>