/[Frey]/trunk/lib/Frey/Web/Button.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/Button.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 128 by dpavlin, Sun Jul 13 12:08:59 2008 UTC revision 129 by dpavlin, Mon Jul 14 23:44:18 2008 UTC
# Line 8  Frey::Web::Button - render buttons with Line 8  Frey::Web::Button - render buttons with
8    
9  =head1 SYNOPSIS  =head1 SYNOPSIS
10    
11    extends 'Frey::Web::Button';    with 'Frey::Web::Button';
12    
13  =head1 DESCRIPTION  =head1 DESCRIPTION
14    
# Line 17  Don't quite know what this will be yet. Line 17  Don't quite know what this will be yet.
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 {
# Line 48  sub rename_button { Line 46  sub rename_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 } ) {
# Line 58  sub render_buttons { Line 56  sub render_buttons {
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);
Legend:
Removed from v.128  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.26