MMAgic/Log/Value.pm

Go to the documentation of this file.

package MMAgic::Log::Value;
#
# /MMAgic/Log/Value.pm
#
#   NOT a sub-class of MMAgic::Log.
#   This is a simple table from the B::Value
#   functions visitTypes and walkTypes.
#
#   (C)opyright 2000 Marc M. Adkins
#

# use   warnings;

use     MMAgic::Log;
use     MMAgic::Trace;

eval
    {
    require MMAgic::B::Value;
    $loaded = 1;
    };

unless ($loaded && ! $@)
    {
#!# Log->warning(__PACKAGE__, ' functionality unavailable without B::Value');
    Log->warning('  ', $@) if $@;
    }

###########################################################################
###########################################################################
sub Table   # $flag
#
    {
#!# my  $auto  = Log->method(@_)->block;
    
    return unless $loaded;
    
    my  $flag  = shift || 'T';
    my  $visit = MMAgic::B::Value::visitTypes();
    my  $walk  = MMAgic::B::Value::walkTypes();
    
#!# Log->trace('Visit:  ', $visit);
#!#  Log->trace('Walk:   ', $walk);
    
    Log->message
        ($flag,
         "Type", ' ' x 22, "visited |  walked |    lost\n",
         '-' x (26 + 3 * 7 + 2 * 3));
    
    for my $type (sort keys %$visit)
        {
        Log->message
            ($flag,
             sprintf
                ("%-25s %7d | %7d | %7d",
                 length($type) > 25 ? substr($type, 0, 25) : $type,
                 $visit->{$type},  $walk->{$type},
                 $visit->{$type} - $walk->{$type}));
        }
    
    for my $type (sort keys %$walk)
        {
        $visit->{$type} or
        Log->message
            ($flag,
             sprintf
                ('%-25s <<< walked but not visited >>>',
                 length($type) > 25 ? substr($type, 0, 25) : $type));
        }

    Log->message($flag, '-' x (26 + 3 * 7 + 2 * 3));
    }

1