X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant%2FApplicationToRole.pm;h=3cdbe6dddbbdbc8099d886ffab32d16eef8e1554;hb=6095de21fa00670b76aa68f6cd89465cb49572d3;hp=6393923d557c4d0ee02e459043526d5cd7647559;hpb=bb7d10430e67f2ecdfc3a104b99ab424f59ba51d;p=gitmo%2FMooseX-UndefTolerant.git

diff --git a/lib/MooseX/UndefTolerant/ApplicationToRole.pm b/lib/MooseX/UndefTolerant/ApplicationToRole.pm
index 6393923..3cdbe6d 100644
--- a/lib/MooseX/UndefTolerant/ApplicationToRole.pm
+++ b/lib/MooseX/UndefTolerant/ApplicationToRole.pm
@@ -4,10 +4,10 @@ use Moose::Role;
 around apply => sub {
     my $orig  = shift;
     my $self  = shift;
-    my ($role, $class) = @_;
+    my ($role1, $role2) = @_;
 
-    Moose::Util::MetaRole::apply_metaroles(
-        for             => $class,
+    $role2 = Moose::Util::MetaRole::apply_metaroles(
+        for             => $role2,
         role_metaroles => {
             application_to_class => [
                 'MooseX::UndefTolerant::ApplicationToClass',
@@ -18,7 +18,7 @@ around apply => sub {
         }
     );
 
-    $self->$orig( $role, $class );
+    $self->$orig( $role1, $role2 );
 };
 
 no Moose::Role;