view release on metacpan or  search on metacpan

MAGE/ArrayDesign/PhysicalArrayDesign.pm  view on Meta::CPAN

sub addPropertySets {
  my $self = shift;
  croak(__PACKAGE__ . "::addPropertySets: no arguments passed to adder")
    unless @_;
  my @vals = @_;
    foreach my $val (@vals) {
    croak(__PACKAGE__ . "::addPropertySets: wrong type: " . ref($val) . " expected Bio::MAGE::NameValueType")
      unless UNIVERSAL::isa($val,'Bio::MAGE::NameValueType');
  }

  return push(@{$self->{__PROPERTYSETS}},@vals);
}





=back


=item surfaceType

Methods for the C<surfaceType> association.


From the MAGE-OM documentation:

The type of surface from a controlled vocabulary that would include terms such as non-absorptive, absorptive, etc.


=over


=item $val = $physicalarraydesign->setSurfaceType($val)

The restricted setter method for the C<surfaceType> association.


Input parameters: the value to which the C<surfaceType> association will be set : one of the accepted enumerated values.

Return value: the current value of the C<surfaceType> association : one of the accepted enumerated values.

Side effects: none

Exceptions: will call C<croak()> if no input parameters are specified, or
if too many input parameters are specified, or if C<$val> is not an instance of class C<Bio::MAGE::Description::OntologyEntry>

=cut


sub setSurfaceType {
  my $self = shift;
  croak(__PACKAGE__ . "::setSurfaceType: no arguments passed to setter")
    unless @_;
  croak(__PACKAGE__ . "::setSurfaceType: too many arguments passed to setter")
    if @_ > 1;
  my $val = shift;
  croak(__PACKAGE__ . "::setSurfaceType: wrong type: " . ref($val) . " expected Bio::MAGE::Description::OntologyEntry") unless (not defined $val) or UNIVERSAL::isa($val,'Bio::MAGE::Description::OntologyEntry');
  return $self->{__SURFACETYPE} = $val;
}


=item $val = $physicalarraydesign->getSurfaceType()

The restricted getter method for the C<surfaceType> association.

Input parameters: none

Return value: the current value of the C<surfaceType> association : an instance of type C<Bio::MAGE::Description::OntologyEntry>.

Side effects: none

Exceptions: will call C<croak()> if any input parameters are specified

=cut


sub getSurfaceType {
  my $self = shift;
  croak(__PACKAGE__ . "::getSurfaceType: arguments passed to getter")
    if @_;
  my $val = shift;
  return $self->{__SURFACETYPE};
}





=back


=item designProviders

Methods for the C<designProviders> association.


From the MAGE-OM documentation:

The primary contact for information on the array design


=over


=item $array_ref = $physicalarraydesign->setDesignProviders($array_ref)

The restricted setter method for the C<designProviders> association.


Input parameters: the value to which the C<designProviders> association will be set : a reference to an array of objects of type C<Bio::MAGE::AuditAndSecurity::Contact>

Return value: the current value of the C<designProviders> association : a reference to an array of objects of type C<Bio::MAGE::AuditAndSecurity::Contact>

Side effects: none

Exceptions: will call C<croak()> if no input parameters are specified, or
if too many input parameters are specified, or if C<$array_ref> is not a reference to an array class C<Bio::MAGE::AuditAndSecurity::Contact> instances

=cut


sub setDesignProviders {
  my $self = shift;
  croak(__PACKAGE__ . "::setDesignProviders: no arguments passed to setter")
    unless @_;
  croak(__PACKAGE__ . "::setDesignProviders: too many arguments passed to setter")
    if @_ > 1;
  my $val = shift;
    croak(__PACKAGE__ . "::setDesignProviders: expected array reference, got $self")
    unless (not defined $val) or UNIVERSAL::isa($val,'ARRAY');
  if (defined $val) {
    foreach my $val_ent (@{$val}) {
      croak(__PACKAGE__ . "::setDesignProviders: wrong type: " . ref($val_ent) . " expected Bio::MAGE::AuditAndSecurity::Contact")
        unless UNIVERSAL::isa($val_ent,'Bio::MAGE::AuditAndSecurity::Contact');
    }
  }

  return $self->{__DESIGNPROVIDERS} = $val;
}


=item $array_ref = $physicalarraydesign->getDesignProviders()