CPAN::Groonga

  isnt refaddr($undef), refaddr($defined);
  is $defined, 0;

  isa_ok $undef,   'Data::Object::Undef';
  isa_ok $defined, 'Data::Object::Number';

  $defined = $undef->defined(9876543210);

  isnt r

   '7.8' => 8,
    '7.9' => 9,
    '7.0' => bless {1, 2},
  });

  my $unfold = $hash->unfold;

  isnt refaddr($hash), refaddr($unfold);
  is_deeply $unfold, {5, [4, 5, 6], 7, {8, 8, 9, 9, 0, bless {1

5' => 6, '7.8' => 8, '7.9' => 9, '7.0' => bless {1, 2},
    });

  my $unfold = $hash->unfold;

  isnt refaddr($hash), refaddr($unfold);
  is_deeply $unfold, {5, [4, {5, 6}], 7, {8, 8, 9, 9, 0, bless 

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

  isnt refaddr($string), refaddr($camelcased);
  is "$camelcased", 'HelloWorld';    # HelloWorld

  isa_

  $string     = Data::Object::String->new('HELLO WORLD');
  $camelcased = $string->camelcase;

  isnt refaddr($string), refaddr($camelcased);
  is "$camelcased", 'HelloWorld';    # HelloWorld

  isa_

2);

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

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

  $defined = $array->defined(1);

  isnt refadd

ject::Number->new(1);
  my $lt      = $integer->lt(2);

  isnt refaddr($integer), refaddr($lt);
  is $lt, 1;

  $lt = $integer->lt(1);

  isnt refaddr($integer), refaddr($lt);
  is $lt, 0;

  isa_ok $

ct::Float->new(1.99999);
  my $gt    = $float->gt(0);

  isnt refaddr($float), refaddr($gt);
  is $gt, 1;

  $gt = $float->gt(1.99999);

  isnt refaddr($float), refaddr($gt);
  is $gt, 0;

  isa_ok $f

ject::Number->new(1);
  my $ne      = $integer->ne(2);

  isnt refaddr($integer), refaddr($ne);
  is $ne, 1;

  $ne = $integer->ne(1);

  isnt refaddr($integer), refaddr($ne);
  is $ne, 0;

  isa_ok $

:Object::Number->new(1);
  my $lt     = $number->lt(2);

  isnt refaddr($number), refaddr($lt);
  is $lt, 1;

  $lt = $number->lt(1);

  isnt refaddr($number), refaddr($lt);
  is $lt, 0;

  isa_ok $nu

ject::Number->new(1);
  my $gt      = $integer->gt(0);

  isnt refaddr($integer), refaddr($gt);
  is $gt, 1;

  $gt = $integer->gt(1);

  isnt refaddr($integer), refaddr($gt);
  is $gt, 0;

  isa_ok $

:Object::Number->new(1);
  my $ne     = $number->ne(2);

  isnt refaddr($number), refaddr($ne);
  is $ne, 1;

  $ne = $number->ne(1);

  isnt refaddr($number), refaddr($ne);
  is $ne, 0;

  isa_ok $nu

:Object::Float->new(1.01);
  my $ne    = $float->ne(2);

  isnt refaddr($float), refaddr($ne);
  is $ne, 1;

  $ne = $float->ne(1.01);

  isnt refaddr($float), refaddr($ne);
  is $ne, 0;

  isa_ok $fl

bject::Float->new(1.445);
  my $lt    = $float->lt(2);

  isnt refaddr($float), refaddr($lt);
  is $lt, 1;

  $lt = $float->lt(1.445);

  isnt refaddr($float), refaddr($lt);
  is $lt, 0;

  isa_ok $fl

:Object::Number->new(1);
  my $gt     = $number->gt(0);

  isnt refaddr($number), refaddr($gt);
  is $gt, 1;

  $gt = $number->gt(1);

  isnt refaddr($number), refaddr($gt);
  is $gt, 0;

  isa_ok $nu

:Array->new([1 .. 5]);
#
#  my @argument = ();
#  my $hashify  = $array->hashify(@argument);
#
#  isnt refaddr($array), refaddr($hashify);
#  is_deeply $hashify, {1 => 1, 2 => 1, 3 => 1, 4 => 1, 5 => 

new([1 .. 5]);
#
#  my @argument = ('$a % 2');
#  my $hashify  = $array->hashify(@argument);
#
#  isnt refaddr($array), refaddr($hashify);
#  is_deeply $hashify, {1 => 1, 2 => 0, 3 => 1, 4 => 0, 5 => 

main->new);
my $addr3 = refaddr(main->renew);
my $addr4 = refaddr(main->new);

is $addr1, $addr2;
isnt $addr2, $addr3;
is $addr3, $addr4;
is $addr1, $addr2;

ok $addr2;
ok $addr1;

ok 1 and done_testi

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

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

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

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

bject::Hash->new({1 .. 8});

  my @argument = (1, 10);
  my $set      = $hash->set(@argument);

  isnt refaddr($hash), refaddr($set);
  is $set, 10;

  isa_ok $hash, 'Data::Object::Hash';
  isa_ok $se

a::Object::Hash->new({1 .. 8});

  my @argument = (5);
  my $get      = $hash->get(@argument);

  isnt refaddr($hash), refaddr($get);
  is $get, 6;

  isa_ok $hash, 'Data::Object::Hash';
  isa_ok $get

h->new({1 .. 8, 9, undef});

  my @argument = (1);
  my $defined  = $hash->defined(@argument);

  isnt refaddr($hash), refaddr($defined);
  is $defined, 1;

  isa_ok $hash,    'Data::Object::Hash';
  

:Object::Hash->new({1 .. 8});

  my @argument = ();
  my $values   = $hash->values(@argument);

  isnt refaddr($hash), refaddr($values);
  is_deeply [sort { $a <=> $b } @{$values}], [sort { $a <=> $b