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

Annotation of /FigKernelPackages/Classes.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : mkubal 1.1 package GeneImpl;
2 :    
3 :     sub new {
4 :     #$proteinCollection is a ref to an array
5 :     my ($class, $id, $name, $proteinCollection) = @_;
6 :     $self = { id => $id,
7 :     name => $name,
8 :     proteinCollection => $proteinCollection
9 :     };
10 :     return bless($self, $class);
11 :     }
12 :    
13 :     package OrganismImpl;
14 :    
15 :     sub new {
16 :     my ($class, $id, $ncbi, $s_name, $c_name,$org_collection) = @_;
17 :     $self = { id => $id,
18 :     ncbiTaxonomyID => $ncbi,
19 :     scientificName => $s_name,
20 :     commonName => $c_name,
21 :     organismCollection => $org_collection
22 :     };
23 :     return bless($self, $class);
24 :     }
25 :    
26 :     package ProteinImpl;
27 :    
28 :     sub new {
29 :     my ($class, $id, $uniprotkbPrimaryAccession, $uniprotkbEntryName ) = @_;
30 :     $self = {
31 :     componentNameCollection => undef,
32 :     databaseCrossReferenceCollection => undef,
33 :     domainNameCollection => undef,
34 :     featureCollection => undef,
35 :     geneCollection => undef,
36 :     id => $id,
37 :     keywordCollection => undef,
38 :     organelleCollection => undef,
39 :     organismCollection => undef,
40 :     proteinNameCollection => undef,
41 :     proteinSequence => undef,
42 :     proteinType => undef,
43 :     uniprotkbAccessionCollection => undef,
44 :     uniprotkbEntryName => $uniprotkbEntryName,
45 :     uniprotkbPrimaryAccession => $uniprotkbPrimaryAccession
46 :     };
47 :     return bless($self, $class);
48 :     }
49 :    
50 :     package ProteinNameImpl;
51 :    
52 :     sub new {
53 :     #$proteinCollection is a ref to an array
54 :     my ($class, $id, $proteinCollection, $value) = @_;
55 :     $self = { id => $id,
56 :     proteinCollection => $proteinCollection,
57 :     value => $value
58 :     };
59 :     return bless($self, $class);
60 :     }
61 :    
62 :    
63 :     ##
64 :     # queryObjectRequest does not do what we want because of rpc encoding
65 :     # i think. just here for historical record
66 :     ##
67 :    
68 :     package queryObjectRequest;
69 :    
70 :     sub new {
71 :     my ($class, $orgTargetObjectName, $orgCriteriaObj) = @_;
72 :     $self = { orgTargetObjectName => $orgTargetObjectName,
73 :     OrgCriteriaObject => $orgCriteriaObj
74 :     };
75 :     return bless($self, $class);
76 :     }
77 :    
78 :    
79 :    
80 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3