CPAN::Groonga

r(@argument);
  while (my $value = $iterator->()) {
    $i++;
    push @{$values}, $value;
  }

  isnt refaddr($array), refaddr($iterator);
  is_deeply $values, [1, 2, 3, 4, 5];
  is $i, 5;

  isa_ok 

::Object::Array->new([1 .. 5]);

  my @argument = ();
  my $sum      = $array->sum(@argument);

  isnt refaddr($array), refaddr($sum);
  is $sum, 15;

  isa_ok $array, 'Data::Object::Array';
  isa_ok 

:Object::Array->new([1 .. 5]);

  my @argument = ();
  my $head     = $array->head(@argument);

  isnt refaddr($array), refaddr($head);
  is $head, 1;

  isa_ok $array, 'Data::Object::Array';
  isa_ok

:Object::Array->new([1 .. 5]);

  my @argument = ();
  my $size     = $array->size(@argument);

  isnt refaddr($array), refaddr($size);
  is $size, 5;

  isa_ok $array, 'Data::Object::Array';
  isa_ok

y->new([1 .. 5]);

  my @argument    = ();
  my $pairs_array = $array->pairs_array(@argument);

  isnt refaddr($array), refaddr($pairs_array);
  is_deeply $pairs_array, [[0, 1], [1, 2], [2, 3], [3, 4]

>new([1, 1, 1, 1, 2, 3, 1]);

  my @argument = ();
  my $unique   = $array->unique(@argument);

  isnt refaddr($array), refaddr($unique);
  is_deeply $unique, [1, 2, 3];

  isa_ok $array,  'Data::Obje

ray->new([1 .. 5]);

  my @argument = ('a' .. 'd');
  my $keyed    = $array->keyed(@argument);

  isnt refaddr($array), refaddr($keyed);
  is_deeply $keyed, {a => 1, b => 2, c => 3, d => 4};

  isa_ok

od' => sub {
  my $integer = Data::Object::Number->new(0);
  my $upto    = $integer->upto(10);

  isnt refaddr($integer), refaddr($upto);
  is_deeply $upto, [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10];

  isa_