X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FViewPort%2FField%2FFile.pm;h=adb01556ad11c928800b8098f01a2fa0d4e70d91;hb=565a1fc7fe67c721f2766bdc3f55c5fcb33fc760;hp=557826d82f21e048b841b0c386c818db660f9aa2;hpb=7adfd53f17f66ffe93763e944ed1d3fc52a369dc;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/ViewPort/Field/File.pm b/lib/Reaction/UI/ViewPort/Field/File.pm
index 557826d..adb0155 100644
--- a/lib/Reaction/UI/ViewPort/Field/File.pm
+++ b/lib/Reaction/UI/ViewPort/Field/File.pm
@@ -3,43 +3,29 @@ package Reaction::UI::ViewPort::Field::File;
 use Reaction::Class;
 use Reaction::Types::File;
 
-class File is 'Reaction::UI::ViewPort::Field', which {
-
-  has '+value' => (isa => 'File', required => 0);
-  
-  has '+layout' => (default => 'file');
-  
-  override apply_our_events => sub {
-    my ($self, $ctx, $events) = @_;
-    my $value_key = join(':', $self->location, 'value');
-    if (my $upload = $ctx->req->upload($value_key)) {
-      local $events->{$value_key} = $upload;
-      return super();
-    } else {
-      return super();
-    }
-  };
-
-};
+use namespace::clean -except => [ qw(meta) ];
+extends 'Reaction::UI::ViewPort::Field';
 
-1;
-
-=head1 NAME
+use MooseX::Types::Moose qw/CodeRef/;
 
-Reaction::UI::ViewPort::Field::File
+has '+value' => (isa => Reaction::Types::File::File());
 
-=head1 DESCRIPTION
+has uri    => ( is => 'rw', lazy_build => 1);
 
-=head1 SEE ALSO
+has action => (isa => CodeRef, is => 'rw', required => 1);
 
-=head2 L<Reaction::UI::ViewPort::Field>
+sub _build_uri {
+  my $self = shift;
+  my $c = $self->ctx;
+  my ($c_name, $a_name, @rest) = @{ $self->action->($self->model, $c) };
+  $c->uri_for($c->controller($c_name)->action_for($a_name),@rest);
+}
 
-=head1 AUTHORS
+sub _value_string_from_value {
+    shift->value->stringify;
+}
 
-See L<Reaction::Class> for authors.
+__PACKAGE__->meta->make_immutable;
 
-=head1 LICENSE
 
-See L<Reaction::Class> for the license.
-
-=cut
+1;