Frey/Web/Design.pm

package Frey::Web::Design;
use Moose;
extends '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/;

has 'labels' => (
        is => 'rw',
        isa => 'HashRef[Str]',
        default => sub { {} },
);

has 'label_count' => (
        is => 'rw',
        isa => 'Int',
        default => 0,
);

around 'field_label' => sub {
        my ($next, $self, $name) = @_;
        my $label = $self->$next($name);

        $self->labels->{ $name } = $label;
        $self->label_count( $self->label_count + 1 );

        $label = '[&larr;]' . $label . '[&rarr;]';
        return $label;
};

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	dpavlin	143	extends 'Frey::Web::Item';
4	dpavlin	129	with 'Frey::Web::Button';
5
6			=head1 NAME
7
8			Frey::Web::Design - field designer for L<Frey::Web::Item>
9
10			=cut
11
12			use Data::Dump qw/dump/;
13
14	dpavlin	143	has 'labels' => (
15			is => 'rw',
16			isa => 'HashRef[Str]',
17			default => sub { {} },
18			);
19
20			has 'label_count' => (
21			is => 'rw',
22			isa => 'Int',
23			default => 0,
24			);
25
26			around 'field_label' => sub {
27			my ($next, $self, $name) = @_;
28			my $label = $self->$next($name);
29
30			$self->labels->{ $name } = $label;
31			$self->label_count( $self->label_count + 1 );
32
33			$label = '[←]' . $label . '[→]';
34			return $label;
35			};
36
37	dpavlin	129	before 'main' => sub {
38			my $self = shift;
39
40			$self->add_button( 'Finish design' => sub {
41			my $f = shift;
42			my $hash = $self->set_from_hash($f);
43			warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
44
45			$self->render_as( 'view' );
46			$self->remove_button( 'Finish design' );
47			});
48
49			};
50
51			1;