CPAN::Groonga

     = Data::Object::String->new('mr. wellington III');
  my $titlecased = $string->titlecase;

  isnt refaddr($string), refaddr($titlecased);
  is "$titlecased", 'Mr. Wellington III';

  isa_ok $stri

a::Object::String->new('Hello World');
  my $replaced = $string->replace('World', 'Universe');

  isnt refaddr($string), refaddr($replaced);
  is "$replaced", 'Hello Universe';    # Hello Universe
  i

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

  for (1 .. 50) {
    my $random = $array->random;
    isnt refaddr($array), refaddr($random);
    ok $random <= 5;

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

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

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

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

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

Array->new([5, 4, 3, 2, 1]);

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

  isnt refaddr($array), refaddr($rnsort);
  is_deeply $rnsort, [5, 4, 3, 2, 1];

  isa_ok $array,  'Data

 5, 7, 7]);

  my @argument = (sub { shift() == 5 });
  my $one      = $array->one(@argument);

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

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

ect::Array->new(['a' .. 'd']);

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

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

  isa_ok $array, 'Data::Object

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

  my @argument = (5);
  my $exists   = $array->exists(@argument);

  isnt refaddr($array), refaddr($exists);
  is $exists, 0;

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

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

  my @argument = (2, 4);
  my $slice    = $array->slice(@argument);

  isnt refaddr($array), refaddr($slice);
  is_deeply $array, [1, 2, 3, 4, 5];
  is_deeply $slice, [3, 5]

hod' => sub {
  my $array = Data::Object::Array->new([1 .. 5]);
  my $count = $array->count();

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

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

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

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

  isnt refaddr($array), refaddr($pairs_hash);
  is_deeply $pairs_hash, {0 => 1, 1 => 2, 2 => 3, 3 => 4, 

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

  my @argument = (0);
  my $get      = $array->get(@argument);

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

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

ay->new(['d', 'c', 'b', 'a']);

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

  isnt refaddr($array), refaddr($sort);
  is_deeply $sort, ['a', 'b', 'c', 'd'];

  isa_ok $array, 'Data

w([1 .. 10]);

  my @argument = (sub { shift > 5 });
  my $part     = $array->part(@argument);

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

  isa_o

=> sub {
  my $array  = Data::Object::Array->new(['a' .. 'd']);
  my $values = $array->values;

  isnt refaddr($array), refaddr($values);
  is_deeply $values, ['a' .. 'd'];

  isa_ok $array,  'Data::O

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

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

  isnt refaddr($array), refaddr($reverse);
  is_deeply $reverse, [5, 4, 3, 2, 1];

  isa_ok $array,   'D

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

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

  isnt refaddr($array), refaddr($join);
  is $join, 12345;

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

:Array->new([5, 4, 3, 2, 1]);

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

  isnt refaddr($array), refaddr($nsort);
  is_deeply $nsort, [qw(1 2 3 4 5)];

  isa_ok $array, 'Data::O

y @argument = (sub { push @{$values}, shift() + 1 });
  my $map      = $array->map(@argument);

  isnt refaddr($array), refaddr($map);
  is_deeply $values, [2, 3, 4, 5, 6];

  isa_ok $array, 'Data::Ob

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

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

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