[Bio] / FigKernelPackages / FIGMODELmodel.pm Repository:
ViewVC logotype

View of /FigKernelPackages/FIGMODELmodel.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sun Oct 25 21:42:35 2009 UTC (10 years, 1 month ago) by chenry
Branch: MAIN
*** empty log message ***

package FIGMODELmodel;
use strict;

=head1 FIGMODELmodel object
=head2 Introduction
Module for manipulating model objects.
=head2 Core Object Methods

=head3 new
Definition:
	FIGMODELmodel = FIGMODELmodel->new();
Description:
	This is the constructor for the FIGMODELmodel object.
=cut
sub new {
	my ($class,$id,$figmodel) = @_;
	my $self->{"_figmodel"}->[0] = $figmodel;
	$self->{"_id"}->[0] = $id;

	return bless $self;
}

=head3 figmodel
Definition:
	FIGMODEL = FIGMODELmodel->figmodel();
Description:
	Returns a FIGMODEL object
=cut
sub figmodel {
	my ($self) = @_;
	return $self->{"_figmodel"}->[0];
}

=head3 id
Definition:
	string = FIGMODELmodel->id();
Description:
	Returns model id
=cut
sub id {
	my ($self) = @_;
	return $self->{"_id"}->[0];
}

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3