Searched refs:deparse (Results 1 - 6 of 6) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Ddeparse.t21 my $deparse = B::Deparse->new() or print "not ";
29 $deparse->ambient_pragmas (
56 my $deparsed = $deparse->coderef2text( $coderef );
78 print "not " if (eval "sub ".$deparse->coderef2text(\&c))->() ne 'stuff';
83 ne $deparse->coderef2text(sub{(-1) ** $a });
87 my $string = "sub " . $deparse->coderef2text(\&cr);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DDeparse.pm110 # - comprehensive test mechanism (TEST -deparse)
141 # Current test.deparse failures
216 # want to deparse
243 # deparse() calls each per-op subroutine with an argument $cx (short
247 # chart below). When ops with children call deparse on them, they pass
423 $args .= $self->deparse($svop, 6);
616 # First deparse command-line args
617 if (defined $^I) { # deparse -i
620 if ($^W) { # deparse -w
623 if ($/ ne "\n" or defined $O::savebackslash) { # deparse
784 sub deparse { subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A DTEST28 if ($1 =~ /^deparse(,.+)?$/) {
29 $deparse = 1;
128 if ($deparse) {
129 _testprogs('deparse', '', @ARGV);
153 print <<'EOT' if ($type eq 'deparse');
200 if ($type eq 'deparse') {
221 close(SCRIPT) unless ($type eq 'deparse');
237 if ($type eq 'deparse') {
248 if ($type eq 'deparse') {
249 my $deparse
[all...]
/osnet-11/usr/src/lib/libshell/
H A DMakefile.com73 sh/deparse.o \
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.pm85 deparse => $Deparse, # use B::Deparse for coderefs
161 $Data::Dumper::Deparse || (ref($_[0]) && $_[0]->{deparse});
381 if ($s->{deparse}) {
595 defined($v) ? (($s->{'deparse'} = $v), return $s) : $s->{'deparse'};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs305 int deparse; /* whether to deparse code refs */
1190 cxt->deparse = -1; /* Idem */
1338 cxt->deparse = -1; /* Idem */
2495 cxt->deparse == 0 ||
2496 (cxt->deparse < 0 && !(cxt->deparse =

Completed in 40 milliseconds