sub FETCH {
    my $self = shift;
    if (! @_) {
        return $self->[0]->{FETCH};
    }
    ...
}