aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Makefile.PL2
-rw-r--r--lib/Reaction/InterfaceModel/Reflector/DBIC.pm2
-rw-r--r--lib/Reaction/Meta/InterfaceModel/Action/Class.pm2
-rw-r--r--lib/Reaction/Meta/InterfaceModel/Object/Class.pm4
-rw-r--r--lib/Reaction/UI/Widget.pm2
-rw-r--r--lib/Reaction/UI/Widget/Container.pm2
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');