make CMOP::Class->clone_instance private
[gitmo/Class-MOP.git] / t / 050_scala_style_mixin_composition.t
index 290747c..7dcc949 100644 (file)
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
@@ -86,7 +84,7 @@ sub ::with ($) {
         my $method = $mixin->get_method($_);
         # we want to ignore accessors since
         # they will be created with the attrs
-        (blessed($method) && $method->isa('Class::MOP::Attribute::Accessor'))
+        (blessed($method) && $method->isa('Class::MOP::Method::Accessor'))
             ? () : ($_ => $method)
     } $mixin->get_method_list;