| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package NCBIx::Geo::Item; |
|
2
|
1
|
|
|
1
|
|
6
|
use base qw(NCBIx::Geo::Base); |
|
|
1
|
|
|
|
|
1
|
|
|
|
1
|
|
|
|
|
79
|
|
|
3
|
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
26
|
|
|
5
|
1
|
|
|
1
|
|
5
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
32
|
|
|
6
|
1
|
|
|
1
|
|
5
|
use Carp; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
65
|
|
|
7
|
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
4
|
use version; our $VERSION = qv('1.0.0'); |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
6
|
|
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
{ |
|
11
|
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
my %series_title_of :ATTR( :get :set :default<''> :init_arg ); |
|
13
|
|
|
|
|
|
|
my %n_samples_of :ATTR( :get :set :default<''> :init_arg ); |
|
14
|
|
|
|
|
|
|
my %gds_type_of :ATTR( :get :set :default<''> :init_arg ); |
|
15
|
|
|
|
|
|
|
my %ptech_type_of :ATTR( :get :set :default<''> :init_arg ); |
|
16
|
|
|
|
|
|
|
my %samples_of :ATTR( :get :set :default<''> :init_arg ); |
|
17
|
|
|
|
|
|
|
my %projects_of :ATTR( :get :set :default<''> :init_arg ); |
|
18
|
|
|
|
|
|
|
my %gse_of :ATTR( :get :set :default<''> :init_arg ); |
|
19
|
|
|
|
|
|
|
my %summary_of :ATTR( :get :set :default<''> :init_arg ); |
|
20
|
|
|
|
|
|
|
my %gsm_titles_l_of :ATTR( :get :set :default<''> :init_arg ); |
|
21
|
|
|
|
|
|
|
my %pubmed_ids_of :ATTR( :get :set :default<''> :init_arg ); |
|
22
|
|
|
|
|
|
|
my %relations_of :ATTR( :get :set :default<''> :init_arg ); |
|
23
|
|
|
|
|
|
|
my %gpl_of :ATTR( :get :set :default<''> :init_arg ); |
|
24
|
|
|
|
|
|
|
my %ss_info_of :ATTR( :get :set :default<''> :init_arg ); |
|
25
|
|
|
|
|
|
|
my %supp_file_of :ATTR( :get :set :default<''> :init_arg ); |
|
26
|
|
|
|
|
|
|
my %taxon_of :ATTR( :get :set :default<''> :init_arg ); |
|
27
|
|
|
|
|
|
|
my %gsm_l_of :ATTR( :get :set :default<''> :init_arg ); |
|
28
|
|
|
|
|
|
|
my %entry_type_of :ATTR( :get :set :default<''> :init_arg ); |
|
29
|
|
|
|
|
|
|
my %val_type_of :ATTR( :get :set :default<''> :init_arg ); |
|
30
|
|
|
|
|
|
|
my %pdat_of :ATTR( :get :set :default<''> :init_arg ); |
|
31
|
|
|
|
|
|
|
my %platform_taxa_of :ATTR( :get :set :default<''> :init_arg ); |
|
32
|
|
|
|
|
|
|
my %samples_taxa_of :ATTR( :get :set :default<''> :init_arg ); |
|
33
|
|
|
|
|
|
|
my %gds_of :ATTR( :get :set :default<''> :init_arg ); |
|
34
|
|
|
|
|
|
|
my %subset_info_of :ATTR( :get :set :default<''> :init_arg ); |
|
35
|
|
|
|
|
|
|
my %title_of :ATTR( :get :set<title> :default<''> :init_arg<title> ); </td>
</tr>
<tr>
<td class="h" >
<a name="36">36</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %platform_title_of :ATTR( :get<platform_title> :set<platform_title> :default<''> :init_arg<platform_title> ); </td>
</tr>
<tr>
<td class="h" >
<a name="37">37</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="38">38</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %related_gpl_of :ATTR( :get<related_gpl> :set<related_gpl> :default<''> :init_arg<related_gpl> ); </td>
</tr>
<tr>
<td class="h" >
<a name="39">39</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %related_gds_of :ATTR( :get<related_gds> :set<related_gds> :default<''> :init_arg<related_gds> ); </td>
</tr>
<tr>
<td class="h" >
<a name="40">40</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %related_gse_of :ATTR( :get<related_gse> :set<related_gse> :default<''> :init_arg<related_gse> ); </td>
</tr>
<tr>
<td class="h" >
<a name="41">41</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my %samples_count_of :ATTR( :get<samples_count> :set<samples_count> :default<''> :init_arg<samples_count> ); </td>
</tr>
<tr>
<td class="h" >
<a name="42">42</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="43">43</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub START { </td>
</tr>
<tr>
<td class="h" >
<a name="44">44</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#44-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#44-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $ident, $arg_ref) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="45">45</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="46">46</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="47">47</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return; </td>
</tr>
<tr>
<td class="h" >
<a name="48">48</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="49">49</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="50">50</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub add_related { </td>
</tr>
<tr>
<td class="h" >
<a name="51">51</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#51-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#51-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self, $item ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="52">52</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $acc_type = $item->get_entry_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="53">53</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--branch.html#53-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( $acc_type =~ m/GPL/ ) { $self->set_related_gpl( $item ); } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--branch.html#-2">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--branch.html#-3">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="54">54</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ( $acc_type =~ m/GDS/ ) { $self->set_related_gds( $item ); } </td>
</tr>
<tr>
<td class="h" >
<a name="55">55</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ( $acc_type =~ m/GSE/ ) { $self->set_related_gse( $item ); } </td>
</tr>
<tr>
<td class="h" >
<a name="56">56</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self; </td>
</tr>
<tr>
<td class="h" >
<a name="57">57</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="58">58</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="59">59</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_sample_ids { </td>
</tr>
<tr>
<td class="h" >
<a name="60">60</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#60-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#60-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="61">61</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my @sample_accns; </td>
</tr>
<tr>
<td class="h" >
<a name="62">62</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $sample ( @{ $self->get_samples() } ) { </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="63">63</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> push @sample_accns, $sample->{Accession}; </td>
</tr>
<tr>
<td class="h" >
<a name="64">64</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="65">65</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return join( ';', @sample_accns ); </td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_sample_descs { </td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#69-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#69-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my @sample_accns; </td>
</tr>
<tr>
<td class="h" >
<a name="71">71</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> foreach my $sample ( @{ $self->get_samples() } ) { </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> push @sample_accns, $sample->{Accession} . "\t" . $sample->{Title}; </td>
</tr>
<tr>
<td class="h" >
<a name="73">73</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return join( "\n", @sample_accns ) . "\n"; </td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="77">77</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub desc { </td>
</tr>
<tr>
<td class="h" >
<a name="78">78</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#78-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#78-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="79">79</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $entry_type = $self->get_entry_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="80">80</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gse = $self->get_gse(); </td>
</tr>
<tr>
<td class="h" >
<a name="81">81</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gpl = $self->get_gpl(); </td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gds = $self->get_gds(); </td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $desc = "[$entry_type] GPL: $gpl \n"; </td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $desc .= "[$entry_type] GDS: $gds \n"; </td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $desc .= "[$entry_type] GSE: $gse \n\n"; </td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $desc; </td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub dump { </td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#92-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#92-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $series_title = $self->get_series_title(); </td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $n_samples = $self->get_n_samples(); </td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gds_type = $self->get_gds_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="96">96</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $ptech_type = $self->get_ptech_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $samples = $self->get_samples(); </td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $projects = $self->get_projects(); </td>
</tr>
<tr>
<td class="h" >
<a name="99">99</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gse = $self->get_gse(); </td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $summary = $self->get_summary(); </td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gsm_titles_l = $self->get_gsm_titles_l(); </td>
</tr>
<tr>
<td class="h" >
<a name="102">102</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $pubmed_ids = $self->get_pubmed_ids(); </td>
</tr>
<tr>
<td class="h" >
<a name="103">103</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $relations = $self->get_relations(); </td>
</tr>
<tr>
<td class="h" >
<a name="104">104</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gpl = $self->get_gpl(); </td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $ss_info = $self->get_ss_info(); </td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $supp_file = $self->get_supp_file(); </td>
</tr>
<tr>
<td class="h" >
<a name="107">107</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $taxon = $self->get_taxon(); </td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gsm_l = $self->get_gsm_l(); </td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $entry_type = $self->get_entry_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $val_type = $self->get_val_type(); </td>
</tr>
<tr>
<td class="h" >
<a name="111">111</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $pdat = $self->get_pdat(); </td>
</tr>
<tr>
<td class="h" >
<a name="112">112</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $platform_taxa = $self->get_platform_taxa(); </td>
</tr>
<tr>
<td class="h" >
<a name="113">113</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $samples_taxa = $self->get_samples_taxa(); </td>
</tr>
<tr>
<td class="h" >
<a name="114">114</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $gds = $self->get_gds(); </td>
</tr>
<tr>
<td class="h" >
<a name="115">115</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $subset_info = $self->get_subset_info(); </td>
</tr>
<tr>
<td class="h" >
<a name="116">116</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $title = $self->get_title(); </td>
</tr>
<tr>
<td class="h" >
<a name="117">117</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $platform_title = $self->get_platform_title(); </td>
</tr>
<tr>
<td class="h" >
<a name="118">118</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="119">119</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> print " ITEM: $series_title, $n_samples, $gds_type, $ptech_type, $samples, $projects, $gse, $summary, $gsm_titles_l, $pubmed_ids, $relations, $gpl, $ss_info, $supp_file, $taxon, $gsm_l, $entry_type, $val_type, $pdat, $platform_taxa, $samples_taxa, $gds, $subset_info, $title, $platform_title \n"; </td>
</tr>
<tr>
<td class="h" >
<a name="120">120</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="121">121</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return; </td>
</tr>
<tr>
<td class="h" >
<a name="122">122</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="123">123</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="124">124</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub check_sample_count { </td>
</tr>
<tr>
<td class="h" >
<a name="125">125</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#125-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--subroutine.html#125-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ( $self ) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="126">126</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $n_samples = $self->get_n_samples(); </td>
</tr>
<tr>
<td class="h" >
<a name="127">127</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $samples_count = scalar( @{ $self->get_samples() } ); </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="128">128</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="129">129</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--branch.html#129-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--condition.html#129-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( $n_samples || $samples_count ) { </td>
</tr>
<tr>
<td class="h" >
<a name="130">130</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-NCBIx-Geo-Item-pm--branch.html#130-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ( $n_samples != $samples_count ) { return 0; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="131">131</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="132">132</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="133">133</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return 1; </td>
</tr>
<tr>
<td class="h" >
<a name="134">134</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="135">135</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="136">136</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="137">137</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="138">138</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> 1; # Magic true value required at end of module </td>
</tr>
<tr>
<td class="h" >
<a name="139">139</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> __END__ </td>
</tr>
</table>
</body>
</html>
|