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	dpavlin	63	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;