#!/usr/bin/perl -w
use
strict;
use
warnings;
package
Employee;
use
Moose;
has
'first_name'
=> (
is
=>
'rw'
,
);
use
Gapp;
use
Gapp::Form::Context;
my
$cx
= Gapp::Form::Context->new;
ok
$cx
,
'created context'
;
my
$e
= Employee->new(
first_name
=>
'Homer'
);
$cx
->add(
'employee'
,
$e
, );
my
$form
= Gapp::VBox->new (
traits
=> [
qw( Form )
],
context
=>
$cx
,
content
=> [
Gapp::VBox->new(
content
=> [
Gapp::Entry->new(
field
=>
'employee.first_name'
,
),
]
)
]
);
ok
$form
,
'created form object'
;
ok
$form
->find_fields,
'found form fields'
;
$form
->update;