MMAgic/Log/Indent.pm

Go to the documentation of this file.

package MMAgic::Log::Indent;
#
# MMAgic/Log/Indent.pm
#
#   Object indents specified Log when created,
#   then removes indent when it is destroyed.
#   When assigned to a lexical ('my') variable
#   it should be destroyed when the variable
#   goes out of scope.  We hope.
#

# use   warnings;

###########################################################################
###########################################################################
sub new     # $class, $log [, $incr ]
#
    {
    my  $self = bless { target => $_[1] }, $_[0];
    
    $self->{target}->push($_[2]);
    $self
    }

###########################################################################
sub DESTROY # $self
#
    {
    $_[0]->{target}->pop;
    }

1