File Coverage

blib/lib/Rose/HTML/Form/Field/OnOff/Selectable.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	18	18	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	6	33.3
total	56	60	93.3

package Rose::HTML::Form::Field::OnOff::Selectable;

use strict;

use base 'Rose::HTML::Form::Field::OnOff';

our $VERSION = '0.606';

__PACKAGE__->required_html_attr_value
(
  value => '',
);

sub selected
{
  my($self) = shift;

  if(@_)
  {
    $self->is_cleared(0);
    return $self->{'selected'} =
      $self->html_attr(selected => $_[0] ? 1 : (defined $_[0] ? 0 : undef));
  }

  return 0  if($self->is_cleared);

  return defined $self->{'selected'} ? $self->{'selected'} : $self->default_value;
}

*input_value = \&selected;

sub is_selected { shift->selected ? 1 : 0 }

sub is_on { shift->is_selected }

sub clear
{
  my($self) = shift;

  $self->selected(0);
  $self->error(undef);
  $self->is_cleared(1);
}

sub reset
{
  my($self) = shift;

  $self->selected(undef);
  $self->error(undef);
  $self->is_cleared(0);
  return 1;
}

sub hidden
{
  my($self) = shift;

  if(@_)
  {
    if($self->{'_hidden'} = shift(@_) ? 1 : 0)
    {
      $self->selected(undef);
    }
  }

  return $self->{'_hidden'};
}

1;