Frey/Web/Item.pm

package Strix::View::User;

use metaclass 'Moose::Meta::Class' => (
        attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
);

use Moose;

extends 'Continuity::Widget';
#with 'BonusTypes';

use Data::Dump qw/dump/;

use Strix::User;

my $m = Strix::User->meta;

foreach ( $m->get_attribute_list ) {
        warn ">> $_\n";
        my $attr = $m->get_attribute( $_ );

        has $_ => (
                is => $attr->_is_metadata,
                label => ucfirst($_),
                required => $attr->is_required,
        );

}

has foo => (
        is => 'rw',
        label => 'Foo',
);

1;
1	package Strix::View::User;
2
3	use metaclass 'Moose::Meta::Class' => (
4	attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
5	);
6
7	use Moose;
8
9	extends 'Continuity::Widget';
10	#with 'BonusTypes';
11
12	use Data::Dump qw/dump/;
13
14	use Strix::User;
15
16	my $m = Strix::User->meta;
17
18	foreach ( $m->get_attribute_list ) {
19	warn ">> $_\n";
20	my $attr = $m->get_attribute( $_ );
21
22	has $_ => (
23	is => $attr->_is_metadata,
24	label => ucfirst($_),
25	required => $attr->is_required,
26	);
27
28	}
29
30	has foo => (
31	is => 'rw',
32	label => 'Foo',
33	);
34
35	1;