/[Perly]/lib/Perly/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Perly/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 14 by dpavlin, Tue Jun 5 22:38:29 2007 UTC revision 15 by dpavlin, Tue Jun 5 23:23:30 2007 UTC
# Line 5  use warnings; Line 5  use warnings;
5    
6  use Jifty::View::Declare -base;  use Jifty::View::Declare -base;
7    
8    use Data::Dump qw/dump/;
9    
10  template '/' => page {  template '/' => page {
11          h1 { _("Available code") }          h1 { _("Available code") }
12          div { show 'code_list' }          div { show 'code_list' }
# Line 68  template '/upload' => page { Line 70  template '/upload' => page {
70  };  };
71    
72  template '/run' => page {  template '/run' => page {
73            my $action = new_action( class => 'Run' );
74          h1 { _("Run code on some input") },          h1 { _("Run code on some input") },
75          form {          form {
                 my $action = new_action( class => 'Run' );  
76                  render_action( $action => [ 'input', 'code' ] );                  render_action( $action => [ 'input', 'code' ] );
77                  form_submit(                  form_submit(
78                          label => _('Run'),                          label => _('Run'),
79                  );                  );
80            };
81            if ( $action->result->content ) {
82                    h1 { _("Output") },
83                    pre {
84                            $action->result->content( 'output' )
85                    }
86          }          }
87  };  };
88    
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26