diff --git a/lib/st/api/lims.pm b/lib/st/api/lims.pm index c72217f0..fdd2afca 100644 --- a/lib/st/api/lims.pm +++ b/lib/st/api/lims.pm @@ -316,90 +316,6 @@ for my $m ( @METHODS ){ # All methods are created, now aliases for methods can be defined. alias primer_panel => 'gbs_plex_name'; -=head2 inline_index_read - -index read - -=cut - -has 'inline_index_read' => (isa => 'Maybe[Int]', - is => 'ro', - init_arg => undef, - lazy_build => 1, - ); - -sub _build_inline_index_read { - my $self = shift; - my @x = _parse_sample_description($self->_sample_description); - return $x[3]; ## no critic (ProhibitMagicNumbers) -} - -has 'inline_index_end' => (isa => 'Maybe[Int]', - is => 'ro', - init_arg => undef, - lazy_build => 1, - ); - -=head2 inline_index_end - -index end - -=cut - -sub _build_inline_index_end { - my $self = shift; - my @x = _parse_sample_description($self->_sample_description); - return $x[2]; -} - -=head2 inline_index_start - -index start - -=cut - -has 'inline_index_start' => (isa => 'Maybe[Int]', - is => 'ro', - init_arg => undef, - lazy_build => 1, - ); - -sub _build_inline_index_start { - my $self = shift; - my @x = _parse_sample_description($self->_sample_description); - return $x[1]; -} - -=head2 inline_index_exists - -=cut - -has 'inline_index_exists' => (isa => 'Bool', - is => 'ro', - init_arg => undef, - lazy_build => 1, - ); - -sub _build_inline_index_exists { - my $self = shift; - return _tag_sequence_from_sample_description($self->_sample_description) ? 1 : 0; -} - -has '_sample_description' => (isa => 'Maybe[Str]', - is => 'ro', - init_arg => undef, - lazy_build => 1, - ); - -sub _build__sample_description { - my $self = shift; - return $self->sample_description if ($self->sample_description); - foreach my $c ($self->children) { - return $c->sample_description if ($c->sample_description); - } - return; -} - =head2 is_phix_spike True for a plex library that is the spiked phiX.