Select Code to Download

sub BUILD {
  my $self = shift;
...
  }
  return;
}

my $ds = TLA::Datastore::Dummy->new('mode' => 'R');
if ( $ds->DOES('TLA::Datastore::_readable') ) {
  # do stuff
};