ext/B/B/Terse.pm

   1 package B::Terse;
   2 use B::Concise;
   3
   4 sub compile {
   5     my @args = @_;
   6     $args[0] = "-exec" if $args[0] eq "exec";
   7     unshift @args, "-terse";
   8     B::Concise::compile(@args);
   9 }
  10
  11 1;
  12
  13 __END__
  14
  15 =head1 NAME
  16
  17 B::Terse - Walk Perl syntax tree, printing terse info about ops
  18
  19 =head1 SYNOPSIS
  20
  21     perl -MO=Terse[,OPTIONS] foo.pl
  22
  23 =head1 DESCRIPTION
  24
  25 This version of B::Terse is really just a wrapper that calls B::Concise
  26 with the B<-terse> option. It is provided for compatibility with old scripts
  27 (and habits) but using B::Concise directly is now recommended instead.
  28
  29 =head1 AUTHOR
  30
  31 The original version of B::Terse was written by Malcolm Beattie,
  32 C<mbeattie@sable.ox.ac.uk>. This wrapper was written by Stephen McCamant,
  33 C<smcc@CSUA.Berkeley.EDU>.
  34
  35 =cut