view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - Treat function calls as listops -- tally () around the arguments

0.04  Wed Aug 18 10:17:17 EDT 1999
        - More documentation
        - Added OO interface
        - A real test in the testsuite
        - Code cleanup (if this module isn't readable, then we are all doomed)
        - A subroutine _per se_ now counts as a statement

0.05  Wed Aug 18 10:17:17 EDT 1999
        - Add support for both EMBED and non-EMBED versions of perl

0.06  Thu Aug 19 12:14:12 EDT 1999
        - fathom() can now be called repeatedly

0.07  Thu Sep  7 10:14:42 EDT 2000
        - Fix to support Perl 5.6.0
        - Changed contact info

Fathom.pm  view on Meta::CPAN

### that all OP's will inherit the subs as methods.
###


sub B::OBJECT::tally_op
{
    my ($self)  = @_;
    my $ppaddr  = $self->can('ppaddr') ? $self->ppaddr : undef;
    my $output  = "";

    # Normalize EMBED and non-EMBED ppaddr's:
    $ppaddr =~ s/^Perl_// or                                # Historic
    $ppaddr =~ s/^PL_ppaddr\[OP_(\w+)\]/'pp_' . lc $1/e;    # 5.6.0+

    if ($self->can('line')) {
       $output  = perline();
       $linenum = $self->line;
    }

    $output .= sprintf("%3d %-15s %s\n", $linenum, $ppaddr, ref($self))
        if $Verbose > 1;