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

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

revision 129 by dpavlin, Mon Jul 14 23:44:18 2008 UTC revision 143 by dpavlin, Wed Jul 16 14:17:46 2008 UTC
# Line 1  Line 1 
1  package Frey::Web::Design;  package Frey::Web::Design;
2  use Moose;  use Moose;
3  extends 'Frey';  extends 'Frey::Web::Item';
 with 'Frey::Web::Item';  
4  with 'Frey::Web::Button';  with 'Frey::Web::Button';
5    
6  =head1 NAME  =head1 NAME
# Line 12  Frey::Web::Design - field designer for L Line 11  Frey::Web::Design - field designer for L
11    
12  use Data::Dump qw/dump/;  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 {  before 'main' => sub {
38          my $self = shift;          my $self = shift;
39    
Legend:
Removed from v.129  
changed lines
  Added in v.143
  ViewVC Help
Powered by ViewVC 1.1.26