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