--- lib/Perly/View.pm	2007/06/06 00:05:20	20
+++ lib/Perly/View.pm	2007/06/06 08:51:15	21
@@ -28,6 +28,9 @@
 					$code->name,
 				},
 				small { length( $code->source ), ' bytes ', $code->created_on },
+				a {
+					attr { href => '/run?code=' . $code->id, }, 'run'
+				},
 				pre { $code->source },
 			}
 		}
@@ -68,7 +71,7 @@
 };
 
 template '/run' => page {
-	my $action = new_action( class => 'Run' );
+	my $action = new_action( class => 'Run', arguments => { input => get('input'), code => get('code') } );
 	h1 { _("Run code on some input") },
 	form {
 		render_action( $action => [ 'input', 'code' ] );