view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

use Test::Most;
use HTTP::Request::Common;
use Scalar::Util qw/refaddr/;

BEGIN {
  package MyApp::Role::Test;
  $INC{'MyApp/Role/Test.pm'} = __FILE__;

  use Moose::Role;

  sub TO_JSON { 'json' }

  package MyApp::Role::TestOne;
  $INC{'MyApp/Role/TestOne.pm'} = __FILE__;

  use Moose::Role;

  sub TO_JSON_2 { 'json2' }

  package MyApp::Form::Email;
  $INC{'MyApp/Form/Email.pm'} = __FILE__;

  use HTML::FormHandler::Moose;

  extends 'HTML::FormHandler';

  has aaa => (is=>'ro', required=>1);
  has bbb => (is=>'ro', required=>1);

  has_field 'email' => (
    type=>'Email',
    size => 96,
    required => 1);

  package MyApp::Form::User;
  $INC{'MyApp/Form/User.pm'} = __FILE__;

  use HTML::FormHandler::Moose;

  extends 'HTML::FormHandler';

  has_field 'name' => (
    type=>'Text',
    size => 96,
    required => 1);
}

{
  package MyApp::Model::Form;

  use Moose;
  extends 'Catalyst::Model::HTMLFormhandler';

  $INC{'MyApp/Model/Form.pm'} = __FILE__;

  package MyApp::Controller::Root;
  use base 'Catalyst::Controller';

  sub form :Local {
    my ($self, $c) = @_;
    $c->res->body('form')
  }