lib/Perly/View.pm

package Perly::View;

use strict;
use warnings;

use Jifty::View::Declare -base;

template '/' => page {
        h1 { _("Enter your code") }
        div { show 'code_editor' }
};

private template 'code_editor' => sub {
        form {
                my $action = new_action( class => 'CreateCode' );
                render_param( $action => 'source', cols => 80, rows => 25, language => 'perl' );
                #render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
                form_submit(
                        label => _("Save my code"),
                        onclick => [
                                { beforeclick => "CodePress.beforeSubmit();" },
                        ],
                );
        }
};

1;
1	dpavlin	3	package Perly::View;
2
3			use strict;
4			use warnings;
5
6			use Jifty::View::Declare -base;
7
8			template '/' => page {
9			h1 { _("Enter your code") }
10			div { show 'code_editor' }
11			};
12
13			private template 'code_editor' => sub {
14			form {
15			my $action = new_action( class => 'CreateCode' );
16	dpavlin	5	render_param( $action => 'source', cols => 80, rows => 25, language => 'perl' );
17	dpavlin	3	#render_action( $action => [ 'source' => { cols => 80, rows => 30 }, ] );
18	dpavlin	4	form_submit(
19			label => _("Save my code"),
20			onclick => [
21			{ beforeclick => "CodePress.beforeSubmit();" },
22			],
23			);
24	dpavlin	3	}
25			};
26
27			1;