summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2009-05-04 01:46:31 -0500
committerJesse Luehrs <doy@tozt.net>2009-05-04 01:46:31 -0500
commit94ca14721241ff804bab06c56867574887dcd907 (patch)
tree26a279043f87fced42a86b4c44db36911e3a0a2e /lib
parent3124dd53f3e42ff47cb2d4c6e94530a362f98544 (diff)
downloadmoosex-nonmoose-94ca14721241ff804bab06c56867574887dcd907.tar.gz
moosex-nonmoose-94ca14721241ff804bab06c56867574887dcd907.zip
start trying to add the FOREIGNBUILDARGS stuff
Diffstat (limited to 'lib')
-rw-r--r--lib/MooseX/NonMoose/Meta/Role/Class.pm5
-rw-r--r--lib/MooseX/NonMoose/Meta/Role/Constructor.pm8
2 files changed, 10 insertions, 3 deletions
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,
diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
index 24b6966..7b657e4 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
@@ -53,12 +53,16 @@ sub _generate_instance {
my $self = shift;
my ($var, $class_var) = @_;
my $new = $self->name;
- my $super_new_class = $self->associated_metaclass->find_next_method_by_name($new)->package_name;
+ my $meta = $self->associated_metaclass;
+ my $super_new_class = $meta->find_next_method_by_name($new)->package_name;
+ my $arglist = $meta->find_method_by_name('FOREIGNBUILDARGS')
+ ? "${class_var}->FOREIGNBUILDARGS(\@_)"
+ : '@_';
# XXX: this should probably be taking something from the meta-instance api,
# rather than calling bless directly, but this works fine for now, and i
# want to wait for the whole immutablization stuff to settle down before
# digging too deeply into it
- "my $var = bless $super_new_class->$new(\@_), $class_var;\n";
+ "my $var = bless $super_new_class->$new($arglist), $class_var;\n";
}
no Moose::Role;