use Carp;

sub get {
  my $self = shift;
  my @ret = map $self->_get($_), $self->coerce_args(@_);
  wantarray ? @ret : $ret[0];
}

sub _get {
  my $self = shift;
  my $field = shift;
  exists $self->{"attrib_$field"} ?
    $self->{"attrib_$field"} :
    $self->raise("Object '$self' does not have attribute $field");
}

sub raise {
  shift;
  goto &confess;
}