From 94ca14721241ff804bab06c56867574887dcd907 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 4 May 2009 01:46:31 -0500
Subject: start trying to add the FOREIGNBUILDARGS stuff

---
 lib/MooseX/NonMoose/Meta/Role/Class.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/MooseX/NonMoose/Meta/Role/Class.pm')

diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm
index 403b2c8..0ccc5b9 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Class.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm
@@ -118,7 +118,10 @@ around superclasses => sub {
         my $class = shift;
 
         my $params = $class->BUILDARGS(@_);
-        my $instance = $super_new->execute($class, @_);
+        my @foreign_params = $class->can('FOREIGNBUILDARGS')
+                           ? $class->FOREIGNBUILDARGS(@_)
+                           : @_;
+        my $instance = $super_new->execute($class, @foreign_params);
         my $self = Class::MOP::Class->initialize($class)->new_object(
             __INSTANCE__ => $instance,
             %$params,
-- 
cgit v1.2.3-54-g00ecf