8 |
|
|
9 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
10 |
|
|
11 |
extends 'Frey::Web::Button'; |
with 'Frey::Web::Button'; |
12 |
|
|
13 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
14 |
|
|
17 |
=cut |
=cut |
18 |
|
|
19 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
20 |
use Moose; |
use Moose::Role; |
|
extends 'Frey'; |
|
|
with 'Frey::Web::Field'; |
|
21 |
|
|
22 |
# List of callbacks, buttons for now |
# List of callbacks, buttons for now |
23 |
has callback => ( is => 'rw', default => sub {{}} ); |
has callback => ( is => 'rw', isa => 'HashRef', default => sub {{}} ); |
24 |
has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] }); |
has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] }); |
25 |
|
|
26 |
sub add_button { |
sub add_button { |
46 |
$self->callback_order( \@order ); |
$self->callback_order( \@order ); |
47 |
} |
} |
48 |
|
|
49 |
sub render_buttons { |
sub render_callbacks { |
50 |
my ($self) = @_; |
my ($self) = @_; |
51 |
my $out = ''; |
my $out = ''; |
52 |
foreach my $name ( @{ $self->callback_order } ) { |
foreach my $name ( @{ $self->callback_order } ) { |
56 |
return $out; |
return $out; |
57 |
} |
} |
58 |
|
|
59 |
sub exec_buttons { |
sub exec_callbacks { |
60 |
my ($self, $f) = @_; |
my ($self, $f) = @_; |
61 |
foreach my $name (keys %{$self->callback}) { |
foreach my $name (keys %{$self->callback}) { |
62 |
my $btn_name = $self->field_name($name); |
my $btn_name = $self->field_name($name); |