create, list, and room viewing implemented

[chaz/chatty] / lib / Chatty / Form / RoomCreate.pm

diff --git a/lib/Chatty/Form/RoomCreate.pm b/lib/Chatty/Form/RoomCreate.pm
new file mode 100644 (file)
index 0000000..7b6a6bc
--- /dev/null
+++ b/lib/Chatty/Form/RoomCreate.pm
@@ -0,0 +1,16 @@
+package Chatty::Form::RoomCreate;
+
+use HTML::FormHandler::Moose;
+extends 'HTML::FormHandler::Model::DBIC';
+use namespace::autoclean;
+
+has '+item_class' => (default => 'Room');
+has '+unique_messages' => (default => sub {
+       {name => 'Room name is already taken'};
+});
+
+has_field 'name' => (input_class => 'validate[required]', label => 'Room name', required => 1, unique => 1);
+has_field 'submit' => (type => 'Submit', value => 'Create');
+
+__PACKAGE__->meta->make_immutable;
+1;