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	package Frey::Web::Design;
2	use Moose;
3	extends 'Frey::Web::Item';
4	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	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	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;