Frey/Web/Item.pm

package Strix::View::User;

use Data::Dump qw/dump/;

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

use Moose;

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

sub main {
        my ( $self ) = @_;

        if ( ! $self->_fey ) {
                $self->add_button( 'Add' => sub {
                        warn "## Add button callback ",dump( @_ );
                        my $f = shift;
#                       my $out = $self->render_edit;
#                       my $f = $self->next($out);
                        warn "## my uuid ",$self->uuid;
                        $self->set_from_hash($f, sub {
                                warn "## inside set_from_hash ",dump( @_ );
                                my $hash = shift || die "no hash?";
                                delete( $hash->{id} );  # FIXME clear primary key
#                               $hash->{id} = undef;
                                my $u = Strix::User->insert( %$hash );
                                warn "Inserted ",$u->id;
                                $self->_fey( $u );
                        });
                });
        } else {

                $self->add_button( 'Edit' => sub {
                        my $out = $self->render_edit;
                        my $f = $self->next($out);
                        $self->set_from_hash($f, sub {
                                warn "## inside set_from_hash ",dump( @_ );
                                my $hash = shift || die "no hash?";
                                $self->_fey->update( %$hash );
                        });
                });

                $self->add_button('Delete' => sub {
                        print STDERR "delete ID @{[$self->id]}!\n";
                        $self->_fey->delete;
                        $self->next("Deleted id @{[$self->id]}!");
                        $self->render_as( 'deleted' );
                        Strix::Schema->ClearObjectCaches();     # XXX important!
                });

        }

        while(1) {
                my $code = '$self->render_' . $self->render_as . ';';
                warn "CODE: $code";
        my $out = eval "$code";
                warn $@ if $@;
                my $f = $self->next($out);
                $self->set_from_hash($f);
                $self->exec_buttons($f);
        }
};

use Data::Dump qw/dump/;

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

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

        # FIXME primary key would have to be read-only!

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

}

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

has _fey => (
        is => 'rw',
        label => 'Fey object',
        isa => 'Strix::User',
);

1;
1	dpavlin	63	package Strix::View::User;
2
3	dpavlin	71	use Data::Dump qw/dump/;
4
5	dpavlin	63	use metaclass 'Moose::Meta::Class' => (
6			attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
7			);
8
9			use Moose;
10
11			extends 'Continuity::Widget';
12			#with 'BonusTypes';
13
14	dpavlin	74	sub main {
15			my ( $self ) = @_;
16
17			if ( ! $self->_fey ) {
18			$self->add_button( 'Add' => sub {
19			warn "## Add button callback ",dump( @_ );
20			my $f = shift;
21			# my $out = $self->render_edit;
22			# my $f = $self->next($out);
23			warn "## my uuid ",$self->uuid;
24			$self->set_from_hash($f, sub {
25			warn "## inside set_from_hash ",dump( @_ );
26			my $hash = shift \|\| die "no hash?";
27			delete( $hash->{id} ); # FIXME clear primary key
28			# $hash->{id} = undef;
29			my $u = Strix::User->insert( %$hash );
30			warn "Inserted ",$u->id;
31			$self->_fey( $u );
32			});
33			});
34			} else {
35
36			$self->add_button( 'Edit' => sub {
37			my $out = $self->render_edit;
38			my $f = $self->next($out);
39			$self->set_from_hash($f, sub {
40			warn "## inside set_from_hash ",dump( @_ );
41			my $hash = shift \|\| die "no hash?";
42			$self->_fey->update( %$hash );
43			});
44			});
45
46			$self->add_button('Delete' => sub {
47			print STDERR "delete ID @{[$self->id]}!\n";
48			$self->_fey->delete;
49			$self->next("Deleted id @{[$self->id]}!");
50			$self->render_as( 'deleted' );
51			Strix::Schema->ClearObjectCaches(); # XXX important!
52			});
53
54			}
55
56			while(1) {
57			my $code = '$self->render_' . $self->render_as . ';';
58			warn "CODE: $code";
59			my $out = eval "$code";
60			warn $@ if $@;
61	dpavlin	71	my $f = $self->next($out);
62	dpavlin	74	$self->set_from_hash($f);
63			$self->exec_buttons($f);
64			}
65	dpavlin	71	};
66
67	dpavlin	63	use Data::Dump qw/dump/;
68
69			use Strix::User;
70			my $m = Strix::User->meta;
71
72			foreach ( $m->get_attribute_list ) {
73	dpavlin	74	my $attr = $m->get_attribute( $_ );
74	dpavlin	63	warn ">> $_\n";
75
76	dpavlin	74	# FIXME primary key would have to be read-only!
77
78	dpavlin	63	has $_ => (
79			is => $attr->_is_metadata,
80			label => ucfirst($_),
81			required => $attr->is_required,
82			);
83
84			}
85
86	dpavlin	71	has _foo => (
87	dpavlin	63	is => 'rw',
88			label => 'Foo',
89			);
90
91	dpavlin	71	has _fey => (
92			is => 'rw',
93			label => 'Fey object',
94			isa => 'Strix::User',
95			);
96
97	dpavlin	63	1;