package HTML::FormWidgets::Note;

# @(#)$Id: Note.pm 24 2008-03-20 13:57:08Z pjf $

use strict;
use warnings;
use base qw(HTML::FormWidgets);

use version; our $VERSION = qv( sprintf '0.1.%d', q$Rev: 24 $ =~ /\d+/gmx );

sub _render {
   my ($me, $ref) = @_; my $text;

   $ref           = { class => q(note) };
   $ref->{style} .= 'text-align: '.$me->align.q(;) if ($me->align);
   $ref->{style} .= ' width: '.$me->width.q(;)     if ($me->width);

   ($text = $me->msg( $me->name ) || $me->text || q()) =~ s{ \A \n }{}msx;

   return $me->elem->div( $ref, $text );
}

1;

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