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: