MMAgic/Log/Uniq.pm

Go to the documentation of this file.

package MMAgic::Log::Uniq;
#
# /MMAgic/Log/Uniq.pm
#
#   (C)opyright 2000 Marc M. Adkins
#

# use   warnings;

use     MMAgic::Log;

@ISA    = qw(MMAgic::Log);

$a = ord('A');

###########################################################################
sub randName    # $len
#
    {
    my  $len = shift || 6;
    
    while (1)
        {
        my  $name = '';
        
        for (my $i = 0; $i < $len; $i++)
            {
            $name .= chr(int(rand(26)) + $a);
            }
        
        next if $unique{$name};
        
        $unique{$name} = 1;
        
        return $name;
        }
    }

###########################################################################
###########################################################################
sub new ($;%)   # $class, ...
#
    {
    my  $class = shift;
    my  $self  = new MMAgic::Log(@_);
    
    bless $self, $class;
    
    $self->{unique} = randName;
    
    return $self;
    }

###########################################################################
sub DESTROY     # $self
#
    {
    my  $self = shift;
    
    delete $unique{$self->{unique}} if exists $unique{$self->{unique}};
    $self->SUPER::DESTROY;
    }

###########################################################################
###########################################################################
sub starter         # $self
#
    {
    my  $self = shift;
    
    $self->SUPER::starter;
    $self->process("[$self->{unique}] ");
    }

1