package Reaction::UI::ViewPort::Role::Actions;
use Reaction::Role;
-use Reaction::UI::ViewPort::Action::Link;
-
-role Actions, which {
-
- has actions => (is => 'ro', isa => 'ArrayRef', lazy_build => 1);
- has action_prototypes => (is => 'ro', isa => 'ArrayRef', lazy_build => 1);
- implements _build_action_prototypes => as { [] };
-
- implements _build_actions => as {
- my ($self) = @_;
- my (@act, $i);
- my $ctx = $self->ctx;
- my $loc = $self->location;
- foreach my $proto (@{ $self->action_prototypes }) {
- my $action = Reaction::UI::ViewPort::Action::Link->new
- (
- ctx => $ctx,
- target => $self->model,
- location => join ('-', $loc, 'action', $i++),
- %$proto,
- );
- push(@act, $action);
- }
- return \@act;
- };
-
-};
+use Reaction::UI::ViewPort::URI;
+
+use namespace::clean -except => [ qw(meta) ];
+
+has actions => (
+ is => 'ro',
+ isa => 'ArrayRef',
+ lazy_build => 1
+);
+
+has action_order => (
+ is => 'ro',
+ isa => 'ArrayRef'
+);
+
+has action_prototypes => (
+ is => 'ro',
+ isa => 'HashRef',
+ required => 1,
+ default => sub{ {} }
+);
+
+has computed_action_order => (
+ is => 'ro',
+ isa => 'ArrayRef',
+ lazy_build => 1
+);
+
+sub _build_computed_action_order {
+ my $self = shift;
+ my $ordered = $self->sort_by_spec(
+ ($self->has_action_order ? $self->action_order : []),
+ [ keys %{ $self->action_prototypes } ]
+ );
+ return $ordered ;
+}
+
+sub _build_actions {
+ my ($self) = @_;
+ my (@act, $i);
+ my $ctx = $self->ctx;
+ my $loc = $self->location;
+ my $target = $self->model;
+
+ foreach my $proto_name ( @{ $self->computed_action_order } ) {
+ my $proto = $self->action_prototypes->{$proto_name};
+ my $uri = $proto->{uri} or confess('uri is required in prototype action');
+ my $label = exists $proto->{label} ? $proto->{label} : $proto_name;
+
+ my $action = Reaction::UI::ViewPort::URI->new(
+ location => join ('-', $loc, 'action', $i++),
+ uri => ( ref($uri) eq 'CODE' ? $uri->($target, $ctx) : $uri ),
+ display => ( ref($label) eq 'CODE' ? $label->($target, $ctx) : $label ),
+ );
+ push(@act, $action);
+ }
+ return \@act;
+}
1;