File Coverage

blib/lib/SyForm/ViewFieldRole/HTML.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	10	14	71.4
condition			n/a
subroutine	10	10	100.0
pod	0	1	0.0
total	43	49	87.7

package SyForm::ViewFieldRole::HTML;
BEGIN {
  $SyForm::ViewFieldRole::HTML::AUTHORITY = 'cpan:GETTY';
}
# ABSTRACT:
$SyForm::ViewFieldRole::HTML::VERSION = '0.103';
use Moo::Role;
use SyForm::ViewField::InputHTML;
use SyForm::ViewField::LabelHTML;

has html_name => (
  is => 'lazy',
);

sub _build_html_name {
  my ( $self ) = @_;
  return $self->field->name;
}

has html_id => (
  is => 'lazy',
);

sub _build_html_id {
  my ( $self ) = @_;
  return $self->html_name;
}

sub has_syform_formhtml_children { 1 }

has syform_formhtml_children => (
  is => 'lazy',
);

sub _build_syform_formhtml_children {
  my ( $self ) = @_;
  return [
    $self->syform_viewfield_inputhtml,
    $self->has_label ? ( $self->syform_viewfield_labelhtml ) : (),
  ];
}

has syform_viewfield_inputhtml => (
  is => 'lazy',
);

sub _build_syform_viewfield_inputhtml {
  my ( $self ) = @_;
  return SyForm::ViewField::InputHTML->new(
    type => 'text',
    name => $self->html_name,
    id => $self->html_id,
    $self->has_label ? ( title => $self->label ) : (),
    $self->has_val ? ( value => $self->val ) : (),
    $self->field->has_input ? ( %{$self->field->input} ) : (),
  );
}

has syform_viewfield_labelhtml => (
  is => 'lazy',
);

sub _build_syform_viewfield_labelhtml {
  my ( $self ) = @_;
  SyForm->throw('Require label for labelhtml') unless $self->has_label;
  return SyForm::ViewField::LabelHTML->new(
    for => $self->html_id,
    label => $self->label,
    $self->is_invalid ? ( errors => $self->errors ) : (),
    $self->field->has_html_label ? ( %{$self->field->html_label} ) : (),
  );
}

1;

__END__

=pod

=head1 NAME

SyForm::ViewFieldRole::HTML -

=head1 VERSION

version 0.103

=head1 AUTHOR

Torsten Raudssus <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut