--- trunk/lib/Frey/Run.pm	2008/11/05 08:20:54	281
+++ trunk/lib/Frey/Run.pm	2008/11/05 08:20:57	285
@@ -39,14 +39,14 @@
 
 	my @required = 
 		grep {
-			defined $_ && !defined( $self->params->{$_} )
+			defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } )
 		}
 		map {
 			my $attr = $class->meta->get_attribute($_);
-			$attr->is_required && $_
+			$attr->is_required && $attr;
 		} $class->meta->get_attribute_list;
 
-	warn "## required = ",dump( @required ), " for $class";
+	warn "## required = ",dump( map { $_->name } @required ), " for $class";
 
 	my $html;
 	my $values = {};
@@ -54,9 +54,14 @@
 
 	if ( @required ) {
 		$html = qq|<h1>Required params for $class</h1><form method="post">|;
-		foreach my $name ( @required ) {
+		foreach my $attr ( @required ) {
+			my $name = $attr->name;
 			my $type = $name =~ m/^pass/ ? 'password' : 'text';
-			my $value = $values ? $values->{$name} : '';
+			my $value =
+				$values ? $values->{$name} :
+				$attr->has_default ? $attr->default( $name ) :
+				'';
+#warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
 			$html .= qq|<label for="$name">$name</label><input type="$type" name="$name" value="$value">|;
 		}
 		$html .= qq|<input type="submit" value="Run $class"></form>|;