fixed default value

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Role / Actions.pm

diff --git a/lib/Reaction/UI/ViewPort/Role/Actions.pm b/lib/Reaction/UI/ViewPort/Role/Actions.pm
index e78ba4d..368330b 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Role/Actions.pm
+++ b/lib/Reaction/UI/ViewPort/Role/Actions.pm
@@ -20,7 +20,8 @@ has action_filter => (
   isa => 'CodeRef', is => 'ro',
   required => '1', lazy => '1',
   default => sub {
-      sub { return [keys %{ shift->action_prototypes }] }
+      my $self = shift;
+      sub { return [keys %{ $self->action_prototypes }] }
   }
 );