File Coverage

lib/HTML/FormWidgets/PopupMenu.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	4	8	50.0
condition	3	6	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	39	47	82.9

package HTML::FormWidgets::PopupMenu;

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

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

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

   $self->classes( undef );
   $self->labels ( undef );
   $self->values ( [] );
   return;
}

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

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

   $args->{class} .= q( ).($self->class || 'ifield');
   $self->classes  and $args->{classes } = $self->classes;
   $self->onchange and $args->{onchange} = $self->onchange;

   if ($self->labels) {
      my $labels = $args->{labels} = $self->labels;

      $args->{values} = [ sort {
         ($labels->{ $a } // q())
            cmp ($labels->{ $b } // q()) } @{ $self->values } ];
   }
   else { $args->{values} = $self->values }

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

1;

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