view release on metacpan or  search on metacpan

lib/Bio/MAGETAB/SDRF.pm  view on Meta::CPAN

122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
 
            my $subrow_list = $self->_rows_from_node( $edge->get_outputNode(), $local_seen );
            foreach my $subrow ( @{ $subrow_list } ) {
                unshift( @$subrow, $node );
            }
            push @list_of_rows, @{ $subrow_list };
        }
    }
    else {
 
        # Recursion endpoint.
        push @list_of_rows, [ $node ];
    }
 
    return \@list_of_rows;
}
 
sub _get_channel_from_row {
 
    my ( $self, $row ) = @_;