Frey/Web/Button.pm

package Frey::Web::Button;

our $VERSION = '0.01';

=head1 NAME

Frey::Web::Button - render buttons with continuations

=head1 SYNOPSIS

  with 'Frey::Web::Button';

=head1 DESCRIPTION

Don't quite know what this will be yet.

=cut

use Data::Dump qw/dump/;
use Moose::Role;

# List of callbacks, buttons for now
has callback => ( is => 'rw', isa => 'HashRef', default => sub {{}} );
has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] });

sub add_button {
        my ($self, $name, $callback) = @_;
        $self->callback->{$name} = $callback;
        push @{ $self->callback_order }, $name;
        warn "## callback_order = ",dump( $self->callback_order );
}

sub remove_button {
        my ( $self, $name ) = @_;
        delete( $self->callback->{$name} );
        my @order = grep { !/^\Q$name\E$/ } @{ $self->callback_order };
        warn "# remove_button $name order = ",dump( @order );
        $self->callback_order( \@order );
}

sub rename_button {
        my ( $self, $from, $to ) = @_;
        $self->callback->{$to} = delete( $self->callback->{$from} );
        my @order = ( map { s/^\Q$from\E$/$to/; $_ } @{ $self->callback_order } );
        warn "# rename_button $from => $to order = ",dump( @order );
        $self->callback_order( \@order );
}

sub render_callbacks {
        my ($self) = @_;
        my $out = '';
        foreach my $name ( @{ $self->callback_order } ) {
                my $btn_name = $self->field_name($name);
                $out .= qq|<input type="submit" name="@{[$btn_name]}" value="$name">|;
        }
        return $out;
}

sub exec_callbacks {
        my ($self, $f) = @_;
        foreach my $name (keys %{$self->callback}) {
                my $btn_name = $self->field_name($name);
                if($f->{$btn_name}) {
                        $self->callback->{$name}->($f);
                }
        }
}

=head1 SEE ALSO

L<Continuity::Widget> on which is this based.

=cut

1;

1	dpavlin	96	package Frey::Web::Button;
2
3			our $VERSION = '0.01';
4
5			=head1 NAME
6
7			Frey::Web::Button - render buttons with continuations
8
9			=head1 SYNOPSIS
10
11	dpavlin	129	with 'Frey::Web::Button';
12	dpavlin	96
13			=head1 DESCRIPTION
14
15			Don't quite know what this will be yet.
16
17			=cut
18
19			use Data::Dump qw/dump/;
20	dpavlin	129	use Moose::Role;
21	dpavlin	96
22			# List of callbacks, buttons for now
23	dpavlin	129	has callback => ( is => 'rw', isa => 'HashRef', default => sub {{}} );
24	dpavlin	96	has callback_order => ( is => 'rw', isa => 'ArrayRef', default => sub { [] });
25
26			sub add_button {
27	dpavlin	98	my ($self, $name, $callback) = @_;
28			$self->callback->{$name} = $callback;
29			push @{ $self->callback_order }, $name;
30			warn "## callback_order = ",dump( $self->callback_order );
31	dpavlin	96	}
32
33			sub remove_button {
34			my ( $self, $name ) = @_;
35			delete( $self->callback->{$name} );
36			my @order = grep { !/^\Q$name\E$/ } @{ $self->callback_order };
37			warn "# remove_button $name order = ",dump( @order );
38			$self->callback_order( \@order );
39			}
40
41			sub rename_button {
42			my ( $self, $from, $to ) = @_;
43			$self->callback->{$to} = delete( $self->callback->{$from} );
44			my @order = ( map { s/^\Q$from\E$/$to/; $_ } @{ $self->callback_order } );
45			warn "# rename_button $from => $to order = ",dump( @order );
46			$self->callback_order( \@order );
47			}
48
49	dpavlin	129	sub render_callbacks {
50	dpavlin	98	my ($self) = @_;
51			my $out = '';
52			foreach my $name ( @{ $self->callback_order } ) {
53			my $btn_name = $self->field_name($name);
54			$out .= qq\|<input type="submit" name="@{[$btn_name]}" value="$name">\|;
55			}
56			return $out;
57	dpavlin	96	}
58
59	dpavlin	129	sub exec_callbacks {
60	dpavlin	98	my ($self, $f) = @_;
61			foreach my $name (keys %{$self->callback}) {
62			my $btn_name = $self->field_name($name);
63			if($f->{$btn_name}) {
64			$self->callback->{$name}->($f);
65			}
66			}
67	dpavlin	96	}
68
69			=head1 SEE ALSO
70
71			L<Continuity::Widget> on which is this based.
72
73			=cut
74
75			1;
76