File Coverage

lib/HTML/FormWidgets/Note.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	29	32	90.6

package HTML::FormWidgets::Note;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( width ) );

sub init {
   my ($self, $args) = @_;

   $self->class    ( q(note) );
   $self->container( 0       );
   $self->sep      ( q()     );
   $self->width    ( undef   );
   return;
}

sub render_field {
   my ($self, $args) = @_;

   $args = { class => $self->class, id => $self->id };
   $self->width and $args->{style} .= ' width: '.$self->width.q(;);

   (my $text = $self->text || $self->loc( $self->name )) =~ s{ \A \n }{}msx;

   return $self->hacc->span( $args, $text );
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: