Parent Directory | Revision Log
Blame Newspeak for this: removed all action stuff because we don't really need it. Since we do double round trips with whole state to browser and back, it's enough just to separate second step into own package and put that into form action :-)
1 | dpavlin | 746 | package Frey::Class::Refactor::Modify; |
2 | use Moose; | ||
3 | |||
4 | extends 'Frey'; | ||
5 | with 'Frey::Web'; | ||
6 | |||
7 | has selected => ( | ||
8 | is => 'rw', | ||
9 | isa => 'ArrayRef[Str]', | ||
10 | default => sub {}, | ||
11 | ); | ||
12 | |||
13 | has path => ( | ||
14 | is => 'rw', | ||
15 | isa => 'ArrayRef[Str]', | ||
16 | default => sub {}, | ||
17 | ); | ||
18 | |||
19 | has line => ( | ||
20 | is => 'rw', | ||
21 | isa => 'ArrayRef[Str]', | ||
22 | default => sub {}, | ||
23 | ); | ||
24 | |||
25 | has modification => ( | ||
26 | is => 'rw', | ||
27 | isa => 'ArrayRef[Str]', | ||
28 | default => sub {}, | ||
29 | ); | ||
30 | |||
31 | sub as_markup { | ||
32 | my ($self) = @_; | ||
33 | |||
34 | my $dump; | ||
35 | $dump->{$_} = $self->$_ foreach ( qw/selected path line modification/ ); | ||
36 | |||
37 | return $self->html_dump( $dump ); | ||
38 | } | ||
39 | |||
40 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |