Frey/Web/Design.pm

package Frey::Web::Design;
use Moose;
extends 'Frey';
with 'Frey::Web::Item';
with 'Frey::Web::Button';

=head1 NAME

Frey::Web::Design - field designer for L<Frey::Web::Item>

=cut

use Data::Dump qw/dump/;

before 'main' => sub {
        my $self = shift;

        $self->add_button( 'Finish design' => sub {
                my $f = shift;
                my $hash = $self->set_from_hash($f);
                warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
                
                $self->render_as( 'view' );
                $self->remove_button( 'Finish design' );
        });

};

1;
1	package Frey::Web::Design;
2	use Moose;
3	extends 'Frey';
4	with 'Frey::Web::Item';
5	with 'Frey::Web::Button';
6
7	=head1 NAME
8
9	Frey::Web::Design - field designer for L<Frey::Web::Item>
10
11	=cut
12
13	use Data::Dump qw/dump/;
14
15	before 'main' => sub {
16	my $self = shift;
17
18	$self->add_button( 'Finish design' => sub {
19	my $f = shift;
20	my $hash = $self->set_from_hash($f);
21	warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
22
23	$self->render_as( 'view' );
24	$self->remove_button( 'Finish design' );
25	});
26
27	};
28
29	1;