> % if ($opt{empty}) { ><% $opt{empty} %> % } % foreach my $state ( keys %states ) { ><% $states{$state} || '(n/a)' %> % } <%init> my %opt = @_; foreach my $opt (qw( county state country prefix onchange disabled empty )) { $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_}); } tie my %states, 'Tie::IxHash', states_hash( $opt{'country'} );