1 package Reaction::UI::ViewPort::Field::File;
4 use Reaction::Types::File;
6 use namespace::clean -except => [ qw(meta) ];
7 extends 'Reaction::UI::ViewPort::Field';
9 use MooseX::Types::Moose qw/CodeRef/;
11 has '+value' => (isa => Reaction::Types::File::File());
13 has uri => ( is => 'rw', lazy_build => 1);
15 has action => (isa => CodeRef, is => 'rw', required => 1);
20 my ($c_name, $a_name, @rest) = @{ $self->action->($self->model, $c) };
21 $c->uri_for($c->controller($c_name)->action_for($a_name),@rest);
24 sub _value_string_from_value {
25 shift->value->stringify;
28 __PACKAGE__->meta->make_immutable;