Get rid of deprecated methods in Class::MOP (and depend on newest Moose)

diff --git a/Makefile.PL b/Makefile.PL
index 773f65c..fa09cc6 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -28,7 +28,7 @@ requires 'Devel::Declare' => '0.003004';
 requires 'Email::Valid';
 requires 'File::ShareDir' => '1.00'; #
 requires 'File::Spec';
-requires 'Moose' => '0.58';
+requires 'Moose' => '0.74';
 requires 'MooseX::Types' => '0.04';
 requires 'MooseX::Types::Common';
 requires 'MooseX::Types::DateTime';

diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
index 230683a..38d9025 100644 (file)
--- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
+++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
@@ -503,7 +503,7 @@ sub reflect_source_object {
     # attributes => [{...}]             #DWIM, treat as [qr/./, {...} ]
     # attributes => [[-exclude => ...]] #DWIM, treat as [qr/./, [-exclude => ...]]
     my $attr_haystack =
-      [ map { $_->name } $source_class->meta->compute_all_applicable_attributes ];
+      [ map { $_->name } $source_class->meta->get_all_attributes ];
 
     if(!defined $attr_rules){
       $attr_rules = [qr/./];

diff --git a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
index 5937573..b25cfa2 100644 (file)
--- a/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
+++ b/lib/Reaction/Meta/InterfaceModel/Action/Class.pm
@@ -17,7 +17,7 @@ around initialize => sub {
 sub parameter_attributes {
   my $self = shift;
   return grep { $_->isa(ParameterAttribute) } 
-    $self->compute_all_applicable_attributes;
+    $self->get_all_attributes;
 };
 
 __PACKAGE__->meta->make_immutable;

diff --git a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
index 912af6e..47997ff 100644 (file)
--- a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
+++ b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm
@@ -24,12 +24,12 @@ sub add_domain_model {
 sub parameter_attributes {
   my $self = shift;
   return grep { $_->isa(ParameterAttribute) } 
-    $self->compute_all_applicable_attributes;
+    $self->get_all_attributes;
 };
 sub domain_models {
   my $self = shift;
   return grep { $_->isa(DomainModelAttribute) } 
-    $self->compute_all_applicable_attributes;
+    $self->get_all_attributes;
 };
 
 __PACKAGE__->meta->make_immutable;

diff --git a/lib/Reaction/UI/Widget.pm b/lib/Reaction/UI/Widget.pm
index 50085af..5c0bab4 100644 (file)
--- a/lib/Reaction/UI/Widget.pm
+++ b/lib/Reaction/UI/Widget.pm
@@ -21,7 +21,7 @@ sub _build_fragment_names {
     map { /^_fragment_(.*)/; $1; }
     grep { /^_fragment_/ }
     map { $_->{name} }
-    $self->meta->compute_all_applicable_methods
+    $self->meta->get_all_methods
   ];
 };
 sub render {

diff --git a/lib/Reaction/UI/Widget/Container.pm b/lib/Reaction/UI/Widget/Container.pm
index f470d51..bd00c62 100644 (file)
--- a/lib/Reaction/UI/Widget/Container.pm
+++ b/lib/Reaction/UI/Widget/Container.pm
@@ -46,7 +46,7 @@ before _fragment_widget => sub {
 implements _contained_names => sub {
   my ($self, $vp) = @_;
   my @names;
-  foreach my $attr ($vp->meta->compute_all_applicable_attributes) {
+  foreach my $attr ($vp->meta->get_all_attributes) {
     next unless eval { $attr->type_constraint->name->isa(ViewPort) };
     my $name = $attr->name;
     next if ($name eq 'outer');