Perly/Action/Run.pm

use strict;
use warnings;

=head1 NAME

Perly::Action::Run

=cut

package Perly::Action::Run;
use base qw/Perly::Action Jifty::Action/;

use Jifty::Param::Schema;
use Jifty::Action schema {

param input =>
        label is 'Input data',
        available are defer {
                my $coll = Perly::Model::InputCollection->new;
                $coll->unlimit;
                [ '', {  
                        display_from => 'name',
                        value_from => 'id',
                        collection => $coll,
                }];
        },
        render as 'Select';

param code =>
        label is 'Source code',
        available are defer {
                my $coll = Perly::Model::CodeCollection->new;
                $coll->unlimit;
                [{  
                        display_from => 'name',
                        value_from => 'id',
                        collection => $coll,
                }];
        },
        render as 'Select',
        is mandatory;
};

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
    my $self = shift;
    
    # Custom action code
    
    $self->report_success if not $self->result->failure;
    
    return 1;
}

=head2 report_success

=cut

sub report_success {
    my $self = shift;
    # Your success message here
    $self->result->message('Success');
}

1;

1	use strict;
2	use warnings;
3
4	=head1 NAME
5
6	Perly::Action::Run
7
8	=cut
9
10	package Perly::Action::Run;
11	use base qw/Perly::Action Jifty::Action/;
12
13	use Jifty::Param::Schema;
14	use Jifty::Action schema {
15
16	param input =>
17	label is 'Input data',
18	available are defer {
19	my $coll = Perly::Model::InputCollection->new;
20	$coll->unlimit;
21	[ '', {
22	display_from => 'name',
23	value_from => 'id',
24	collection => $coll,
25	}];
26	},
27	render as 'Select';
28
29	param code =>
30	label is 'Source code',
31	available are defer {
32	my $coll = Perly::Model::CodeCollection->new;
33	$coll->unlimit;
34	[{
35	display_from => 'name',
36	value_from => 'id',
37	collection => $coll,
38	}];
39	},
40	render as 'Select',
41	is mandatory;
42	};
43
44	sub sticky_on_success { 1 }
45	sub sticky_on_failure { 1 }
46
47	=head2 take_action
48
49	=cut
50
51	sub take_action {
52	my $self = shift;
53
54	# Custom action code
55
56	$self->report_success if not $self->result->failure;
57
58	return 1;
59	}
60
61	=head2 report_success
62
63	=cut
64
65	sub report_success {
66	my $self = shift;
67	# Your success message here
68	$self->result->message('Success');
69	}
70
71	1;
72