r21697@martha (orig r857): edenc | 2008-08-19 15:07:48 -0400

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field.pm

package Reaction::UI::ViewPort::Field;

use Reaction::Class;
use aliased 'Reaction::InterfaceModel::Object';
use aliased 'Reaction::Meta::InterfaceModel::Object::ParameterAttribute';

use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort';



has value        => (is => 'rw', lazy_build => 1);
has name         => (is => 'rw', isa => 'Str', lazy_build => 1);
has label        => (is => 'rw', isa => 'Str', lazy_build => 1);
has value_string => (is => 'rw', isa => 'Str', lazy_build => 1);

has model     => (is => 'ro', isa => Object,             required => 1);
has attribute => (is => 'ro', isa => ParameterAttribute, required => 1);
sub _build_name { shift->attribute->name };
sub _build_label {
  join(' ', map { ucfirst } split('_', shift->name));
};
sub _build_value {
  my ($self) = @_;
  my $reader = $self->attribute->get_read_method;
  return $self->model->$reader;
};
sub _model_has_value {
  my ($self) = @_;
  my $predicate = $self->attribute->get_predicate_method;

  if (!$predicate || $self->model->$predicate
      #|| ($self->attribute->is_lazy
      #    && !$self->attribute->is_lazy_fail)
    ) {
    # either model attribute has a value now or can build it
    return 1;
  }
  return 0;
};
sub _build_value_string {
  my ($self) = @_;
  # XXX need the defined test because the IM lazy builds from
  # the model and DBIC can have nullable fields and DBIC doesn't
  # have a way to tell us that doesn't force value inflation (extra
  # SELECTs for belongs_to) so basically we're screwed.
  return ($self->_model_has_value && defined($self->_build_value)
            ? $self->_value_string_from_value
            : $self->_empty_string_value);
};
sub _value_string_from_value {
  shift->value;
};
sub _empty_string_value { '' };
sub value_is_required {
  shift->attribute->is_required;
};

__PACKAGE__->meta->make_immutable;


1;
__END__;

=head1 NAME

Reaction::UI::ViewPort::Field

=head1 DESCRIPTION

=head1 ATTRIBUTES

=head2 model

=head2 attribute

=head2 value

=head2 name

=head2 label

=head2 value_string

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut