Skip to content
Snippets Groups Projects
Commit 267026c8 authored by Matthew Laird's avatar Matthew Laird Committed by Kieron Taylor
Browse files

wekane doesn't like to be inline in this context, but I'm not positive this...

wekane doesn't like to be inline in this context, but I'm not positive this will actually get all the variation errors.
parent a519d350
No related branches found
No related tags found
No related merge requests found
......@@ -27,7 +27,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_info {
......
......@@ -30,7 +30,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub build_long_lookup {
......
......@@ -41,7 +41,8 @@ has '_parent' => (is => 'ro', weak_ref => 1);
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), _parent => $self, %$self, @args });
weaken($c);
return $self->new({ context => $c, _parent => $self, %$self, @args });
}
has '_merged_config' => ( is => 'rw', isa => 'HashRef');
......
......@@ -38,7 +38,8 @@ my %allowed_values = (
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub get_alignment {
......
......@@ -28,7 +28,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_LDFeatureContainer_variation_name {
......
......@@ -35,7 +35,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub find_genetree_by_stable_id {
......
......@@ -49,7 +49,8 @@ with 'Catalyst::Component::InstancePerContext', 'EnsEMBL::REST::Role::Content';
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_features {
......
......@@ -30,7 +30,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_regulatory {
......
......@@ -29,7 +29,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_variation {
......
......@@ -32,7 +32,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_ga_callSet {
......
......@@ -32,7 +32,8 @@ has 'context' => (is => 'ro');
sub build_per_context_instance {
my ($self, $c, @args) = @_;
return $self->new({ context => weaken($c), %$self, @args });
weaken($c);
return $self->new({ context => $c, %$self, @args });
}
sub fetch_gavariant {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment