File Coverage

lib/HTML/FormWidgets/Label.pm

Criterion	Covered	Total	%
statement	23	31	74.1
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	34	46	73.9

package HTML::FormWidgets::Label;

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

__PACKAGE__->mk_accessors( qw( dropcap ) );

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

   $self->class    ( 'label_text' );
   $self->container( 0 );
   $self->dropcap  ( 0 );
   $self->text     ( undef );
   return;
}

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

   defined $text or return; $text =~ s{ \A \n }{}msx;

   if ($self->dropcap) {
      my $markup;

      if ($text =~ m{ \A (\<[A-Za-z0-9]+\>) }mx) {
         $markup  = $1;
         $markup .= $self->hacc->span( { class => q(dropcap) },
                                       substr $text, length $1, 1 );
         $markup .= substr $text, (length $1) + 1;
      }
      else {
         $markup  = $self->hacc->span( { class => q(dropcap) },
                                       substr $text, 0, 1 );
         $markup .= substr $text, 1;
      }

      $text = $markup;
   }

   $args = { class => $self->class }; $self->id and $args->{id} = $self->id;

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

1;

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