notbenh

=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

notbenh

Length     Count



      1        16
      2       267
      3       267
      4       169
      5       140
      6       112

notbenh

1 16
2 267
3 267
4 170
5 140
6 112
7 100
8 68
9 61
10 56

notbenh

1 16
2 267
3 267
4 170
5 140
6 112
7 100
8 68
9 61
10 56

notbenh

1 16
2 267
3 267
4 170
5 140
6 112
7 100
8 68
9 61
10 56

notbenh

Length Count
1 17
2 267
3 267
4 169
5 140
6 112
7 99
8 68
9 61

notbenh

Length Count
1 17
2 267
3 267
4 169
5 140
6 112
7 99
8 68
9 61

notbenh

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Differences;
use List::MoreUtils qw{uniq};

sub pp { 
  my %lookup;
  my $i;

notbenh

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $bundle = {
  A => [qw{box widget1}],
  B => [qw{box widget1 widget2}],
  C => [qw{box widget1 widget3}],
  D => [qw{box widget1 widget2 widget3}]

notbenh

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

=head1 GOAL

Given two 'matched' arrayrefs :

  my $items = ['a','b'];