CPAN::Groonga

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

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

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

  isa_ok $array, 'Data::Object

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

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

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

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

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

  isnt refaddr($array), refaddr($delete);
  is $delete, 4;

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

1, 2, 3, undef, 4, 5, {}, []]);

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

  isnt refaddr($array), refaddr($max);
  is $max, 9;

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

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

  my @argument = (4, 6);
  my $set      = $array->set(@argument);

  isnt refaddr($array), refaddr($set);
  is_deeply $array, [1, 2, 3, 4, 6];
  is $set, 6;

  isa_ok $arr

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

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

  isa_ok $array,  'Data::O

ew('one,  two,  three');
  my $stripped = $string->strip;

  is "$stripped", 'one, two, three';
  isnt refaddr($string), refaddr($stripped);

  isa_ok $string,   'Data::Object::String';
  isa_ok $stri

  my $string     = Data::Object::String->new('EXCITING');
  my $lowercased = $string->lcfirst;

  isnt refaddr($string), refaddr($lowercased);
  is "$lowercased", 'eXCITING';    # eXCITING

  isa_ok $

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

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

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

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

  my $string   = Data::Object::String->new('dlrow ,olleH');
  my $reversed = $string->reverse;

  isnt refaddr($string), refaddr($reversed);
  is "$reversed", 'Hello, world';    # Hello, world

  isa_

my $string     = Data::Object::String->new('EXCITING');
  my $lowercased = $string->lowercase;

  isnt refaddr($string), refaddr($lowercased);
  is "$lowercased", 'exciting';    # exciting

  isa_ok $

tring  = Data::Object::String->new("name, age, dob, email\n");
  my $chomped = $string->chomp;

  isnt refaddr($string), refaddr($chomped);
  is "$chomped", 'name, age, dob, email';

  isa_ok $string,

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

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

  isnt refaddr($array), refaddr($rsort);
  is_deeply $rsort, [qw(d c b a)];

  isa_ok $array, 'Data::Obj

$string  = Data::Object::String->new("name, age, dob, email.");
  my $chopped = $string->chop;

  isnt refaddr($string), refaddr($chopped);
  is "$chopped", 'name, age, dob, email';

  isa_ok $string,

y $string    = Data::Object::String->new('hello world');
  my $snakecase = $string->snakecase;

  isnt refaddr($string), refaddr($snakecase);
  is "$snakecase", 'hello_world';    # hello_world

  isa_

ring   = Data::Object::String->new('firstname');
  my $appended = $string->append('lastname');

  isnt refaddr($string), refaddr($appended);
  is "$appended", 'firstname lastname';

  isa_ok $string, 

[2 .. 5]);

  my @argument = (sub { shift() <= 1 });
  my $none     = $array->none(@argument);

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

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

w([1 .. 5]);

  my @argument = (sub { shift >= 3 });
  my $grep     = $array->grep(@argument);

  isnt refaddr($array), refaddr($grep);
  is_deeply $grep, [3, 4, 5];

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

y @argument = ([8, 9, 1, 2, 3, undef, 4, 5, {}, []]);
  my $min      = $array->min(@argument);

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

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

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

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

  isa_ok $ar