File Coverage

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

Criterion	Covered	Total	%
statement	33	35	94.2
branch	12	14	85.7
condition			n/a
subroutine	13	13	100.0
pod	3	9	33.3
total	61	71	85.9

use strict;

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

use Rose::HTML::Form::Constants qw(FF_SEPARATOR);

our $VERSION = '0.606';

use Rose::Object::MakeMethods::Generic
(
  boolean => 'hidden',
);

__PACKAGE__->add_required_html_attrs(
{
  value => 'on',
});





{
  my($self) = shift;
  my $parent_group = $self->parent_group or return;
  my $name = $parent_group->fq_name or return;
  return $name;
}

{
  my($self) = shift;

  my $name = $self->group_context_name;
  $name = $self->local_name  unless(defined $name);

  return join(FF_SEPARATOR, grep { defined } $self->form_context_name,
                                             $self->field_context_name,
                                             $name);
}

my $sep = FF_SEPARATOR;

{
  my($self) = shift;

  my $name = $self->group_context_name;

  if(defined $name)
  {
    my $moniker = $self->local_moniker;
    $name =~ s/(?:^|\Q$sep\E)[^$sep]+$/$moniker/o;
  }
  else { $name = $self->local_moniker }

  return join(FF_SEPARATOR, grep { defined } $self->form_context_name,
                                             $self->field_context_name,
                                             $name);
}

1;