--- trunk/lib/Frey/Action.pm	2009/06/29 18:25:33	1113
+++ trunk/lib/Frey/Action.pm	2009/06/30 15:10:55	1133
@@ -1,8 +1,7 @@
 package Frey::Action;
 use Moose;
 extends 'Frey::PPI';
-with 'Frey::Web';
-with 'Frey::Config';
+with 'Frey::Web', 'Frey::Config';
 
 use Clone qw/clone/;
 use Data::Dump qw/dump/;
@@ -275,7 +274,7 @@
 			push @checkboxes, $name;
 		} elsif ( ! defined $value && ! $required->{$name} ) {
 			$value_html = qq|<tt id="$name">undef</tt><!-- $name = undef -->|; # FIXME if $self->debug
-		} elsif ( $attr_type !~ m{^(Str|Int)$} || $value =~ $Frey::Web::re_html || $name =~ m{text} ) {
+		} elsif ( $attr_type !~ m{^(Str|Int|Email)$} || $value =~ $Frey::Web::re_html || $name =~ m{text} ) {
 			$value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|;
 		}
 
@@ -392,4 +391,7 @@
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
 1;