set_mfields

=head2 set_mfields

Wrapper around set_feilds to allow for a more flexible syntax.

  $mech->set_mfields( $name => [ foo => 2, bar => 3] );
  $mech->set_mfields( $name => [ foo => [2,3]] );

=cut


sub set_mfields {
  my $self = shift;
  my %input = @_;

  while ( my ( $name, $def ) = each %input ) {
    if( ref $def eq 'ARRAY' ){
      my @def_copy = @$def;
      while( my ($set_to,$position) = splice @def_copy, 0, 2) {
        if( ref $position eq 'ARRAY' ){
          $self->set_fields($name => [$set_to,$_]) for @$position;
        }
        else{
          $self->set_fields($name => [$set_to,$position]);
        }
      }
    }
    else{
      $self->set_fields($name => $def);
    } # while
} # set_fields()