Re^3: Storing object references during creation of ->new object

[perldarren]

in reply to Re^2: Storing object references during creation of ->new object
in thread Storing object references during creation of ->new object

Here is the entire sub new:

sub new
{
    my $class = shift;
    my %options = @_;

    my $self = {
        _serial => $options{'serial'},
        _log    => $options{'log'},
        _horcm  => $options{'horcm'},
        _does_get_cmd_status => $options{'does_get_cmd_status'},
    };

    bless $self, $class;

    $array_objects{$options{'serial'}} = $self;
    return $self;
}

[perldarren]

Hold on ! tobyink, you're right - my issue is solved.

Many thanks!