From 9a3bb554e8e0c4848212dce8a2cfdf324b2c2229 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 28 May 2009 23:33:25 -0500
Subject: wrap _immutable_options to silence some warnings

---
 lib/MooseX/ABC/Trait/Class.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lib/MooseX/ABC/Trait/Class.pm b/lib/MooseX/ABC/Trait/Class.pm
index b47bea0..0b51a75 100644
--- a/lib/MooseX/ABC/Trait/Class.pm
+++ b/lib/MooseX/ABC/Trait/Class.pm
@@ -45,6 +45,20 @@ after _superclasses_updated => sub {
     }
 };
 
+around _immutable_options => sub {
+    my $orig = shift;
+    my $self = shift;
+    my @options = $self->$orig(@_);
+    my $constructor = $self->find_method_by_name('new');
+    if ($constructor->original_package_name eq 'Moose::Object') {
+        push @options, replace_constructor => 1;
+    }
+    elsif ($constructor->original_package_name eq 'MooseX::ABC::Role::Object') {
+        push @options, inline_constructor => 0;
+    }
+    return @options;
+};
+
 no Moose::Role;
 
 1;
-- 
cgit v1.2.3