Re^3: C-Style Struct?

[Anonymous Monk]

in reply to Re^2: C-Style Struct?
in thread C-Style Struct?

You could add accessors to the object. Like this:

sub count {
    my $self = shift;
    return $self->[0] unless @_;
    $self->[0] = shift;
}

# ...

$cc->count(42);
print $cc->count;