/[Frey]/trunk/lib/Frey/Action.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/Action.pm

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

revision 1119 by dpavlin, Tue Jun 30 10:09:43 2009 UTC revision 1142 by dpavlin, Wed Jul 1 12:23:58 2009 UTC
# Line 1  Line 1 
1  package Frey::Action;  package Frey::Action;
2  use Moose;  use Moose;
3  extends 'Frey::PPI';  extends 'Frey::PPI';
4  with 'Frey::Web';  with 'Frey::Web', 'Frey::Config';
 with 'Frey::Config';  
5    
6  use Clone qw/clone/;  use Clone qw/clone/;
7  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
# Line 133  sub select_values { Line 132  sub select_values {
132          warn "# max_value_len: $max_value_len";          warn "# max_value_len: $max_value_len";
133          #my $render = eval $class . '->render_' . $name;          #my $render = eval $class . '->render_' . $name;
134          my $call = 'render_' . $name;          my $call = 'render_' . $name;
135          my $render = $self->class->$call;          my $render = $self->class->$call if $self->class->can($call);
136          warn "## render $@";          warn "## render $@";
137    
138          if ( $#values > 3 && $render !~ m{radio} ) {          if ( $#values > 3 && $render !~ m{radio} ) {
# Line 263  sub params_form { Line 262  sub params_form {
262                  } elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) {                  } elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) {
263                          $value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values );                          $value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values );
264                  } elsif ( $class->can( $name . '_available' ) ) {                  } elsif ( $class->can( $name . '_available' ) ) {
265                          my $available = $class->$name . '_available';                          my $available = $name . '_available';
266                            $available = $class->$available;
267                          confess $@ if $@;                          confess $@ if $@;
268                          $available =~ s/^\s+//gs;                          $available =~ s/^\s+//gs;
269                          $available =~ s/\s+$//gs;                          $available =~ s/\s+$//gs;
# Line 392  L<http://www.quirksmode.org/css/forms.ht Line 392  L<http://www.quirksmode.org/css/forms.ht
392    
393  =cut  =cut
394    
395    __PACKAGE__->meta->make_immutable;
396    no Moose;
397    
398  1;  1;
Legend:
Removed from v.1119  
changed lines
  Added in v.1142
  ViewVC Help
Powered by ViewVC 1.1.26