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

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

revision 63 by dpavlin, Tue Jul 8 12:22:16 2008 UTC revision 71 by dpavlin, Wed Jul 9 16:38:48 2008 UTC
# Line 1  Line 1 
1  package Strix::View::User;  package Strix::View::User;
2    
3    use Data::Dump qw/dump/;
4    
5  use metaclass 'Moose::Meta::Class' => (  use metaclass 'Moose::Meta::Class' => (
6          attribute_metaclass => 'Continuity::Meta::Attribute::FormField'          attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
7  );  );
# Line 9  use Moose; Line 11  use Moose;
11  extends 'Continuity::Widget';  extends 'Continuity::Widget';
12  #with 'BonusTypes';  #with 'BonusTypes';
13    
14    before main => sub {
15            my ($self) = @_;
16    #       $self->add_button('Show ID' => sub {
17    #               print STDERR "ID = @{[$self->id]}!\n";
18    #               $self->next("<tt>id @{[$self->id]}!</tt>");
19    #       });
20            $self->add_button('Edit' => sub {
21                    my $out = $self->renderer->{edit}->($self);
22                    my $f = $self->next($out);
23                    $self->set_from_hash($f, sub {
24                            warn "## inside set_from_hash ",dump( @_ );
25                            my $hash = shift || die "no hash?";
26                            warn "## hash = ",dump( $hash );
27                            $self->_fey->update( %$hash );
28                    });
29            });
30    };
31    
32  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
33    
34  use Strix::User;  use Strix::User;
   
35  my $m = Strix::User->meta;  my $m = Strix::User->meta;
36    
37  foreach ( $m->get_attribute_list ) {  foreach ( $m->get_attribute_list ) {
# Line 27  foreach ( $m->get_attribute_list ) { Line 46  foreach ( $m->get_attribute_list ) {
46    
47  }  }
48    
49  has foo => (  has _foo => (
50          is => 'rw',          is => 'rw',
51          label => 'Foo',          label => 'Foo',
52  );  );
53    
54    has _fey => (
55            is => 'rw',
56            label => 'Fey object',
57            isa => 'Strix::User',
58    );
59    
60  1;  1;
Legend:
Removed from v.63  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.26