(RADIATOR) perl sanity check

[Dave Kitabjian]

I need some basic perl help here from y'all.

Given the clip of Radiator perl code below, does this mean that 

$self is a reference 
to an object
which is an array
of references
to arrays
which contain 2 elements each, attribute and value?

Dave

________________________________

# AttrVal.pm
#
# Heres a little class for holding attribute value pairs
# Handles multiple instances of the same attribute.
# Author: Mike McCauley (mikem at open.com.au)
# Copyright (C) 1997 Open System Consultants
# $Id: AttrVal.pm,v 1.17 2001/04/25 23:47:13 mikem Exp $

package Radius::AttrVal;

#####################################################################
sub new
{
    my ($class) = @_;

    my $self = {};
    bless $self, $class;

    @{$self->{Attributes}} = (); # Define an empty array

    return $self;
}

#####################################################################
sub add_attr
{
    my ($self, $name, $value) = @_;
    push(@{$self->{Attributes}}, [ $name, $value ]);
}

#####################################################################
...
===
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.