1 |
package Strix::View::User; |
package Strix::View::User; |
2 |
|
|
3 |
|
use Data::Dump qw/dump/; |
4 |
|
|
5 |
use metaclass 'Moose::Meta::Class' => ( |
use metaclass 'Moose::Meta::Class' => ( |
6 |
attribute_metaclass => 'Continuity::Meta::Attribute::FormField' |
attribute_metaclass => 'Continuity::Meta::Attribute::FormField' |
7 |
); |
); |
11 |
extends 'Continuity::Widget'; |
extends 'Continuity::Widget'; |
12 |
#with 'BonusTypes'; |
#with 'BonusTypes'; |
13 |
|
|
14 |
|
before main => sub { |
15 |
|
my ($self) = @_; |
16 |
|
# $self->add_button('Show ID' => sub { |
17 |
|
# print STDERR "ID = @{[$self->id]}!\n"; |
18 |
|
# $self->next("<tt>id @{[$self->id]}!</tt>"); |
19 |
|
# }); |
20 |
|
$self->add_button('Edit' => sub { |
21 |
|
my $out = $self->renderer->{edit}->($self); |
22 |
|
my $f = $self->next($out); |
23 |
|
$self->set_from_hash($f, sub { |
24 |
|
warn "## inside set_from_hash ",dump( @_ ); |
25 |
|
my $hash = shift || die "no hash?"; |
26 |
|
warn "## hash = ",dump( $hash ); |
27 |
|
$self->_fey->update( %$hash ); |
28 |
|
}); |
29 |
|
}); |
30 |
|
}; |
31 |
|
|
32 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
33 |
|
|
34 |
use Strix::User; |
use Strix::User; |
|
|
|
35 |
my $m = Strix::User->meta; |
my $m = Strix::User->meta; |
36 |
|
|
37 |
foreach ( $m->get_attribute_list ) { |
foreach ( $m->get_attribute_list ) { |
46 |
|
|
47 |
} |
} |
48 |
|
|
49 |
has foo => ( |
has _foo => ( |
50 |
is => 'rw', |
is => 'rw', |
51 |
label => 'Foo', |
label => 'Foo', |
52 |
); |
); |
53 |
|
|
54 |
|
has _fey => ( |
55 |
|
is => 'rw', |
56 |
|
label => 'Fey object', |
57 |
|
isa => 'Strix::User', |
58 |
|
); |
59 |
|
|
60 |
1; |
1; |