6 use B qw(class @specialsv_name);
7 use B::Concise qw(concise_subref set_style_standard);
11 my ($order, $subref) = @_;
12 set_style_standard("terse");
13 if ($order eq "exec") {
14 concise_subref('exec', $subref);
16 concise_subref('basic', $subref);
22 my $order = @args ? shift(@args) : "";
23 $order = "-exec" if $order eq "exec";
24 unshift @args, $order if $order ne "";
25 B::Concise::compile("-terse", @args);
29 my ($level) = @_ ? shift : 0;
33 # Don't use this, at least on OPs in subroutines: it has no way of
34 # getting to the pad, and will give wrong answers or crash.
36 carp "B::OP::terse is deprecated; use B::Concise instead";
37 B::Concise::b_terse(@_);
41 my($sv, $level) = (@_, 0);
43 B::Concise::concise_sv($sv, \%info);
44 my $s = indent($level)
45 . B::Concise::fmt_line(\%info, $sv,
46 "#svclass~(?((#svaddr))?)~#svval", 0);
48 print "$s\n" unless defined wantarray;
53 my ($sv, $level) = (@_, 0);
54 my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv;
55 print "$s\n" unless defined wantarray;
59 sub B::SPECIAL::terse {
60 my ($sv, $level) = (@_, 0);
61 my $s = indent($level)
62 . sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]);
63 print "$s\n" unless defined wantarray;
73 B::Terse - Walk Perl syntax tree, printing terse info about ops
77 perl -MO=Terse[,OPTIONS] foo.pl
81 This version of B::Terse is really just a wrapper that calls B::Concise
82 with the B<-terse> option. It is provided for compatibility with old scripts
83 (and habits) but using B::Concise directly is now recommended instead.
85 For compatibility with the old B::Terse, this module also adds a
86 method named C<terse> to B::OP and B::SV objects. The B::SV method is
87 largely compatible with the old one, though authors of new software
88 might be advised to choose a more user-friendly output format. The
89 B::OP C<terse> method, however, doesn't work well. Since B::Terse was
90 first written, much more information in OPs has migrated to the
91 scratchpad datastructure, but the C<terse> interface doesn't have any
92 way of getting to the correct pad. As a kludge, the new version will
93 always use the pad for the main program, but for OPs in subroutines
94 this will give the wrong answer or crash.
98 The original version of B::Terse was written by Malcolm Beattie,
99 E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen
100 McCamant, E<lt>smcc@MIT.EDUE<gt>.