| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/ |
| H A D | O.pm | 70 perl -MO=[-q,]Backend[,OPTIONS] foo.pl
122 In summary, a compiler backend module should be called "B::Foo"
123 for some foo and live in the appropriate directory for that name.
126 perl -MO=Foo,OPTIONS foo.pl
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
| H A D | b.t | 29 package Testing::Symtable::Foo;
38 B::walksymtable(\%Testing::Symtable::, 'find_syms', sub { $_[0] =~ /Foo/ },
49 push @syms, "Testing::Symtable::Foo::yarrow";
|
| H A D | concise.t | 33 prog => q{$a||=$b && print q/foo/},
|
| H A D | debug.t | 43 $a = `$^X $path "-MO=Terse" -ane "s/foo/bar/" $redir`;
49 $a =~ s/\b(s|foo|bar|ullsv)\b\s?//g;
|
| H A D | deparse.t | 190 my $foo;
191 $_ .= <ARGV> . <$foo>;
194 my $foo = "Ab\x{100}\200\x{200}\377Cd\000Ef\x{1000}\cA\x{2000}\cZ";
|
| H A D | lint.t | 24 runlint 'context', '$foo = @bar', <<'RESULT';
28 runlint 'context', '$foo = length @bar', <<'RESULT';
32 runlint 'implicit-read', '/foo/', <<'RESULT';
36 runlint 'implicit-write', 's/foo/bar/', <<'RESULT';
71 runlint 'undefined-subs', 'foo()', <<'RESULT';
72 Undefined subroutine foo called at -e line 1
|
| H A D | o.t | 30 my @args = ('-Ilib', '-MO=success,foo,bar', '-e', '1' );
34 is( $lines[1], '(foo) <bar>', 'O.pm should call backend compile() method' );
38 $args[1] = '-MO=-q,success,foo,bar';
47 $args[1] = '-MO=-qq,success,foo,bar';
|
| H A D | terse.t | 21 sub foo {} subroutine
24 eval{ $sub = B::Terse::compile('', 'foo') };
68 my $foo = $a + $b;
74 my $boo = split('', $foo);
82 $foo = "a string";
85 $foo =~ s/(a)/$1/;
|
| H A D | xref.t | 76 defined $xreftable{$thisfile}{'Testing::Xref::foo'}{main}{'%xreftable'},
84 $xreftable{$thisfile}{'(definitions)'}{'Testing::Xref'}{'&foo'}, 's1001',
85 'subroutine foo defined at line 1001'
92 $xreftable{$thisfile}{'Testing::Xref::bar'}{'Testing::Xref'}{'&foo'},
93 '&1002', 'subroutine foo called at line 1002 by bar'
96 $xreftable{$thisfile}{'Testing::Xref::foo'}{'Testing::Xref'}{'*FOO'},
97 '1001', 'glob FOO used in subroutine foo'
109 sub foo { prin subroutine
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/ |
| H A D | bytecode.h | 213 #define BSET_ret(foo) STMT_START { \
260 #define BSET_load_glob(foo, gv) \
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.pm | 288 # at this depth (i.e., 'Foo=ARRAY(0xdeadbeef)').
323 # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
343 # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
664 print Dumper($foo, $bar);
667 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
672 eval Data::Dumper->Dump([$foo, $bar], [qw(foo *ar
[all...] |
| H A D | Dumper.xs | 380 * at this depth (i.e., 'Foo=ARRAY(0xdeadbeef)').
454 /* omit "->" in $foo{bar}->[0], but not in ${$foo}->[0] */
538 /* omit "->" in $foo[0]->{bar}, but not in ${$foo}->{bar} */
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
| H A D | dumper.t | 289 $foo = { "abc\000\'\efg" => "mno\000",
294 TEST q(Dumper($foo));
306 TEST q(Data::Dumper::DumperX($foo)) if $XS; # cheat
317 $foo = 5;
318 @foo = (-10,\*foo);
319 %foo = (a=>1,b=>\$foo,c=>\@foo);
320 $foo{
[all...] |
| H A D | overload.t | 20 package Foo; package
23 sub new { bless { foo => "bar" }, shift }
28 my $f = Foo->new;
36 print "not " unless /bar/ && /Foo/;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/ |
| H A D | DProf.pm | 101 & 4 main foo
165 sub foo {
166 last FOO;
168 FOO: {
169 foo();
|
| H A D | DProf.xs | 551 check_depth(pTHX_ void *foo)
553 U32 need_depth = PTR2UV(foo);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
| H A D | PPPort.pm | 265 * perl -x ppport.h *.c *.h *.xs foo/bar*.c [etc]
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/ |
| H A D | Peek.pm | 135 =head2 Memory footprint debugging
137 When perl is compiled with support for memory footprint debugging
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/t/ |
| H A D | Peek.t | 53 $a = "foo",
57 PV = $ADDR "foo"\\\0
139 PV = $ADDR "foo"\\\0
457 bless(\\undef, 'Foobar'),
474 STASH = $ADDR\s+"Foobar"');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/ |
| H A D | MD5.pm | 234 print "Digest is ", md5_hex("foobarbaz"), "\n";
245 $md5->add('foo', 'bar');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/t/ |
| H A D | badfile.t | 8 use vars qw(*FOO);
9 $md5->addfile(*FOO);
11 print "not " unless $@ =~ /^Bad filehandle: FOO at/;
|
| H A D | bits.t | 21 $md5->add_bits("foo");
|
| H A D | utf8.t | 16 $str = "foo\xFF\x{100}";
34 print "not " unless md5_hex("foo\xFF") eq $exp;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/ |
| H A D | Encode.pm | 713 After C<$utf8 = decode('foo', $octet);>,
|
| H A D | Encode.xs | 25 return (y)0; /* fool picky compilers */ \
|