Terse.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
package B::Terse;
use strict;
use B::Asmdata qw(@specialsv_name);
sub terse {
if ($order eq "exec") {
} else {
}
}
sub compile {
my $order = @_ ? shift : "";
my @options = @_;
B::clearsym();
if (@options) {
return sub {
my $objname;
eval "terse(\$order, \\&$objname)";
die "terse($order, \\&$objname) failed: $@" if $@;
}
}
} else {
if ($order eq "exec") {
} else {
}
}
}
sub indent {
my $level = @_ ? shift : 0;
return " " x $level;
}
}
}
}
}
}
if ($label) {
}
}
}
}
if ($stash eq "main") {
$stash = "";
} else {
}
}
}
}
}
}
1;
=head1 NAME
B::Terse - Walk Perl syntax tree, printing terse info about ops
=head1 SYNOPSIS
perl -MO=Terse[,OPTIONS] foo.pl
=head1 DESCRIPTION
=head1 AUTHOR
Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
=cut