File Coverage

lib/HTML/FormWidgets/ScrollingList.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	34	38	89.4

package HTML::FormWidgets::ScrollingList;

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

__PACKAGE__->mk_accessors( qw( height labels values ) );

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

   $self->class ( q(ifield) );
   $self->height( 10 );
   $self->labels( undef );
   $self->values( [] );
   return;
}

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

   $self->class =~ m{ chzn-select }msx
      and $self->add_optional_js( q(chosen.js) );

   $args->{class   } .= ($args->{class} ? q( ) : q()).$self->class;
   $args->{labels  }  = $self->labels   if ($self->labels);
   $args->{onchange}  = $self->onchange if ($self->onchange);
   $args->{size    }  = $self->height;
   $args->{values  }  = $self->values;

   return $self->hacc->scrolling_list( $args );
}

1;

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