Enforce weak references to context in all Moose attributes. Default behaviour...

Enforce weak references to context in all Moose attributes. Default behaviour counteracts use of weaken elsewhere.

lib/EnsEMBL/REST/Model/Assembly.pm

@@ -23,7 +23,7 @@ use Scalar::Util qw/weaken/;
 extends 'Catalyst::Model';
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/DatabaseIDLookup.pm

@@ -26,7 +26,7 @@ extends 'Catalyst::Model';
 with 'Catalyst::Component::InstancePerContext';
 
 has 'long_lookup' => (isa => 'Bool', is => 'ro', builder => 'build_long_lookup');
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/GenomicAlignment.pm

@@ -27,7 +27,7 @@ extends 'Catalyst::Model';
 with 'Catalyst::Component::InstancePerContext';
 
 # Per instance variables
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 my %allowed_values = (
   mask     => { map { $_, 1} qw(soft hard) },

lib/EnsEMBL/REST/Model/LDFeatureContainer.pm

@@ -24,7 +24,7 @@ extends 'Catalyst::Model';
 
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/Lookup.pm

@@ -31,7 +31,7 @@ with 'Catalyst::Component::InstancePerContext';
 has 'lookup_model' => ( is => 'ro', isa => 'Str', required => 1, default => 'DatabaseIDLookup' );
 
 # Per instance variables
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/Overlap.pm

@@ -43,7 +43,7 @@ has 'allowed_translation_features' => ( isa => 'HashRef', is => 'ro', lazy => 1,
   };
 });
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 with 'Catalyst::Component::InstancePerContext', 'EnsEMBL::REST::Role::Content';
 

lib/EnsEMBL/REST/Model/Regulatory.pm

@@ -26,7 +26,7 @@ extends 'Catalyst::Model';
 
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/Variation.pm

@@ -25,7 +25,7 @@ extends 'Catalyst::Model';
 
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 sub build_per_context_instance {
   my ($self, $c, @args) = @_;

lib/EnsEMBL/REST/Model/ga4gh/callSet.pm

@@ -26,7 +26,7 @@ use Bio::EnsEMBL::Variation::DBSQL::VCFCollectionAdaptor;
 
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 
 sub build_per_context_instance {

lib/EnsEMBL/REST/Model/ga4gh/variantSet.pm

@@ -26,7 +26,7 @@ use Bio::EnsEMBL::Variation::DBSQL::VCFCollectionAdaptor;
 use Bio::EnsEMBL::IO::Parser::VCF4Tabix;
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 
 sub build_per_context_instance {

lib/EnsEMBL/REST/Model/ga4gh/variants.pm

@@ -27,7 +27,7 @@ use Bio::EnsEMBL::Variation::DBSQL::VCFCollectionAdaptor;
 
 with 'Catalyst::Component::InstancePerContext';
 
-has 'context' => (is => 'ro');
+has 'context' => (is => 'ro', weak_ref => 1);
 
 
 sub build_per_context_instance {