use strict;
use warnings;
-use Test::More;
-BEGIN{
- if(eval{ require Class::Method::Modifiers::Fast } || eval{ require Class::Method::Modifiers }){
- plan tests => 12;
- }
- else{
- plan skip_all => 'This test requires Class::Method::Modifiers(::Fast)?';
- }
-}
+use Test::More tests => 12;
+
use Test::Exception;
use Test::Mouse;
after 'install_accessors' => sub {
my $self = shift;
- my $reader = $self->get_read_method;
+ my $reader = $self->get_read_method_ref;
$self->associated_class->add_method(
$self->alias_to,
- sub { shift->$reader(@_) },
+ $reader,
);
};
}