Commit | Line | Data |
a798dbf2 |
1 | package B::Terse; |
c99ca59a |
2 | use B::Concise; |
a798dbf2 |
3 | |
4 | sub compile { |
c99ca59a |
5 | my @args = @_; |
6 | $args[0] = "-exec" if $args[0] eq "exec"; |
7 | unshift @args, "-terse"; |
8 | B::Concise::compile(@args); |
a798dbf2 |
9 | } |
10 | |
11 | 1; |
7f20e9dd |
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 | |
c99ca59a |
21 | perl -MO=Terse[,OPTIONS] foo.pl |
7f20e9dd |
22 | |
23 | =head1 DESCRIPTION |
24 | |
c99ca59a |
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. |
7f20e9dd |
28 | |
29 | =head1 AUTHOR |
30 | |
c99ca59a |
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>. |
7f20e9dd |
34 | |
35 | =cut |