/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/ |
H A D | encoding.pm | 344 use encoding "foo" 352 use encoding "foo";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
H A D | Encoder.t | 34 my $e = encoder("foo", "ascii");
|
H A D | jperl.t | 86 no strict 'vars'; # fools
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Fcntl/t/ |
H A D | fcntl.t | 21 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 D | Glob.xs | 24 errfunc(const char *foo, int bar) {
|
H A D | bsd_glob.c | 58 * 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 D | global.t | 116 package Foo; package
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | io_sel.t | 21 $sel->add([\*STDOUT, 'foo']) == 1 or print "not "; 103 $fd = $sel->exists([1, 'foo']);
|
H A D | io_unix.t | 27 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 D | Util.pm | 114 $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 D | Util.pm | 164 $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 D | first.t | 32 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 D | lln.t | 43 ok(!!looks_like_number("foo"), '');
|
H A D | reduce.t | 54 ($x) = foobar(); 57 sub foobar { reduce { (defined(wantarray) && !wantarray) ? '' : 'not ' } 0,1,2,3 } subroutine
|
H A D | refaddr.t | 36 my $obj = bless $r, 'FooBar'; 41 package FooBar; package
|
H A D | weak.t | 61 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 D | base64.t | 35 print "not " unless decode_base64(encode_base64("foo")) eq "foo";
|
H A D | quoted-print.t | 47 ["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 D | ndbm.t | 119 $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 D | odbm.t | 119 $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 D | Opcode.pm | 296 @diff = opset_diff($opset1, $opset2) => ('foo', '!bar', ...)
|
H A D | Safe.pm | 158 # 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 D | POSIX.pm | 11 # Grandfather old foo_h form to new :foo_h form
|
H A D | POSIX.pod | 217 $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 D | posix.t | 206 my $foo = $!; 210 is( $errno + 0, $foo + 0, 'autoloading and errno() mix' );
|