sub make_accessor
{
    my $self = shift;
    my ($name, $index) = @_;

    no strict 'refs';
    *{ref($self) . "::$name"} = sub {
        my $self = shift;
        return $self->[$index] unless @_;
        $self->[$index] = $_[0];
        $self;
    };
    1;
}