lib/Reaction/UI/ViewPort/Field/File.pm

   1 package Reaction::UI::ViewPort::Field::File;
   2
   3 use Reaction::Class;
   4 use Reaction::Types::File;
   5
   6 use namespace::clean -except => [ qw(meta) ];
   7 extends 'Reaction::UI::ViewPort::Field';
   8
   9
  10
  11 has '+value' => (isa => Reaction::Types::File::File());
  12
  13 has uri    => ( is => 'rw', lazy_build => 1);
  14
  15 has action => (isa => 'CodeRef', is => 'rw', required   => 1);
  16 sub _build_uri {
  17   my $self = shift;
  18   my $c = $self->ctx;
  19   my ($c_name, $a_name, @rest) = @{ $self->action->($self->model, $c) };
  20   $c->uri_for($c->controller($c_name)->action_for($a_name),@rest);
  21 };
  22 sub _value_string_from_value {
  23     shift->value->stringify;
  24 };
  25
  26 __PACKAGE__->meta->make_immutable;
  27
  28
  29 1;