1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
package Reaction::UI::Controller::Role::Action::Delete;
use Moose::Role -traits => 'MethodAttributes';
use Reaction::UI::ViewPort::Action;
requires qw/make_context_closure setup_viewport/;
sub delete :Action :Args(0) {
my ($self, $c) = @_;
my $target = $c->stash->{object};
my %vp_args = ( model => $target->action_for('Delete') );
if( $self->can('on_delete_apply_callback') ){
my $apply = sub { $self->on_delete_apply_callback( @_) };
$vp_args{on_apply_callback} = $self->make_context_closure( $apply );
}
if( $self->can('on_delete_close_callback') ){
my $close = sub { $self->on_delete_close_callback( @_) };
$vp_args{on_close_callback} = $self->make_context_closure( $close );
}
$self->setup_viewport( $c, \%vp_args );
}
around _build_action_viewport_map => sub {
my $orig = shift;
my $map = shift->$orig( @_ );
$map->{delete} = 'Reaction::UI::ViewPort::Action';
return $map;
};
1;
__END__;
=head1 NAME
Reaction::UI::Controller::Role::Action::Delete - Delete action
=head1 DESCRIPTION
Provides a C<delete> action, which sets up an L<Action Viewport|Reaction::UI::Viewport::Action>
by calling C<action_for> on the object located in the C<object> slot of the
C<stash>.
=head1 SYNOPSYS
package MyApp::Controller::Foo;
use base 'Reaction::Controller';
use Reaction::Class;
with(
'Reaction::UI::Controller::Role::GetCollection',
'Reaction::UI::Controller::Role::Action::Simple',
'Reaction::UI::Controller::Role::Action::Object',
'Reaction::UI::Controller::Role::Action::Delete'
);
__PACKAGE__->config( action => {
object => { Chained => 'base' },
delete => { Chained => 'object' },
} );
sub base :Chained('/base') :CaptureArgs(0) {
...
}
sub on_delete_apply_callback{ #optional callback
my($self, $c, $vp, $result) = @_;
...
}
sub on_delete_close_callback{ #optional callback
my($self, $c, $vp) = @_;
...
}
=head1 ROLES CONSUMED
This role also consumes the following roles:
=over4
=item L<Reaction::UI::Controller::Role::Action::Simple>
=back
=head1 REQUIRED METHODS
The following methods must be provided by the consuming class:
=over4
=item C<make_context_closure>
=back
=head1 ACTIONS
=head2 delete
Chain endpoint with no args, sets up the viewport with the appropriate action.
If the methods C<on_delete_apply_callback> and C<on_delete_close_callback> are
present in the consuming class, they will be used as callbacks in the viewport.
=head1 METHODS
=head2 _build_action_viewport_map
Extends to set the C<delete> key in the map to L<Reaction::UI::ViewPort::Action>
=head1 SEE ALSO
=over4
=item L<Reaction::UI::Controller>
=item L<Reaction::UI::Controller::Role::GetCollection>
=item L<Reaction::UI::Controller::Role::Action::Simple>
=item L<Reaction::UI::Controller::Role::Action::List>
=item L<Reaction::UI::Controller::Role::Action::View>
=item L<Reaction::UI::Controller::Role::Action::Object>
=item L<Reaction::UI::Controller::Role::Action::Create>
=item L<Reaction::UI::Controller::Role::Action::Update>
=item L<Reaction::UI::Controller::Role::Action::DeleteAll>
=back
=head1 AUTHORS
See L<Reaction::Class> for authors.
=head1 LICENSE
See L<Reaction::Class> for the license.
=cut
|
