From 4d0bacd2bfacba04809dc0943625ad61a6d46b6c Mon Sep 17 00:00:00 2001
From: lbr <lbr@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Sun, 19 Apr 2009 10:08:52 +0000
Subject: Get rid of deprecated methods in Class::MOP (and depend on newest
 Moose)

---
 Makefile.PL                                      | 2 +-
 lib/Reaction/InterfaceModel/Reflector/DBIC.pm    | 2 +-
 lib/Reaction/Meta/InterfaceModel/Action/Class.pm | 2 +-
 lib/Reaction/Meta/InterfaceModel/Object/Class.pm | 4 ++--
 lib/Reaction/UI/Widget.pm                        | 2 +-
 lib/Reaction/UI/Widget/Container.pm              | 2 +-
 6 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 773f65c..fa09cc6 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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');
-- 
cgit v1.2.3-54-g00ecf