Select Code to Download

sub AUTOLOAD {
    my ($self) = @_;
...
    $self->{_read_count}++;
    return $self->{$1}
}

{
    my %_attrs =
...
      );
    sub _accessible { exists $_attrs{$_[1]}}
}