CPAN::Groonga

3.4.7');
  isnt refaddr($hash), refaddr($lookup);
  is_deeply $lookup, {8 => 9, 10 => 11, "10.1" => {1, 2}};
  isa_ok $lookup, 'Data::Object::Hash';

  $lookup = $hash->lookup('3.4');
  isnt refaddr($

kup = $hash->lookup(2);
  isnt refaddr($hash), refaddr($lookup);
  is_deeply $lookup, undef;
  isa_ok $lookup,    'Data::Object::Undef';

  $lookup = $hash->lookup(1);
  isnt refaddr($hash), refaddr($

up('3.4.7.10.1.1');
  isnt refaddr($hash), refaddr($lookup);
  is_deeply $lookup, 2;
  isa_ok $lookup,    'Data::Object::Number';

  $lookup = $hash->lookup('3.4.7.10.1');
  isnt refaddr($hash), refad

er->mod(1);

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

  isa_ok $number, 'Data::Object::Number';
  isa_ok $mod,    'Data::Object::Number';

  $mod = $number->mod(2);

  isnt refaddr($numb

er->mod(3);

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

  isa_ok $number, 'Data::Object::Number';
  isa_ok $mod,    'Data::Object::Number';

  $mod = $number->mod(4);

  isnt refaddr($numb

, 'Data::Object::Number';
  isa_ok $mod,    'Data::Object::Number';

  $mod = $number->mod(5);

  isnt refaddr($number), refaddr($mod);
  is $mod, 2;

  isa_ok $number, 'Data::Object::Number';
  isa_o

code->call(undef);

  my $result;

  isnt refaddr($code), refaddr($call);
  is $call, 1;

  $call = $code->call(0);
  isa_ok $call, 'Data::Object::Number';

  isnt refaddr($code), refaddr($call);
  is

ok $call, 'Data::Object::Number';

  isnt refaddr($code), refaddr($call);
  is $call, 2;

  $call = $code->call(2);
  isa_ok $call, 'Data::Object::Number';

  isnt refaddr($code), refaddr($call);
  is

code->next(undef);

  my $result;

  isnt refaddr($code), refaddr($next);
  is $next, 1;

  $next = $code->next(0);
  isa_ok $next, 'Data::Object::Number';

  isnt refaddr($code), refaddr($next);
  is

ok $next, 'Data::Object::Number';

  isnt refaddr($code), refaddr($next);
  is $next, 2;

  $next = $code->next(2);
  isa_ok $next, 'Data::Object::Number';

  isnt refaddr($code), refaddr($next);
  is

sh->new({1 .. 8});

  my @argument = ({7, 7, 9, 9});
  my $merge    = $hash->merge(@argument);

  isnt refaddr($hash), refaddr($merge);
  is_deeply $merge, {1 => 2, 3 => 4, 5 => 6, 7 => 7, 9 => 9};

 

>new({1, 2, 3, 4});

  my @argument = ({3, [4, 5]});
  my $merge    = $hash->merge(@argument);

  isnt refaddr($hash), refaddr($merge);
  is_deeply $merge, {1 => 2, 3 => [4, 5]};

  isa_ok $hash,  'Da

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

  my @argument = ({3, {4, 5}});
  my $merge    = $hash->merge(@argument);

  isnt refaddr($hash), refaddr($merge);
  is_deeply $merge, {1 => 2, 3 => {4, 5}};

  isa_ok $hash,  'Da

>eq(98765);

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

  $eq = $number->eq('98765');

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

  $eq = $number->eq(987650);

  isnt refaddr($numb

er), refaddr($eq);
  is $eq, 0;

  $eq = $number->eq('098765');

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

  isa_ok $number, 'Data::Object::Number';
  isa_ok $eq,     'Data::Object::Number'

65.98765);

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

  $eq = $float->eq('98765.98765');

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

  $eq = $float->eq(987650);

  isnt refaddr($flo

at), refaddr($eq);
  is $eq, 0;

  $eq = $float->eq('098765.98765');

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

  isa_ok $float, 'Data::Object::Float';
  isa_ok $eq,    'Data::Object::Number

q(98765);

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

  $eq = $integer->eq('98765');

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

  $eq = $integer->eq(987650);

  isnt refaddr($in

teger), refaddr($eq);
  is $eq, 0;

  $eq = $integer->eq('098765');

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

  isa_ok $integer, 'Data::Object::Number';
  isa_ok $eq,      'Data::Object::

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

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

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

 {
#  my $array = Data::Object::Array->new([2 .. 5]);
#  my $all   = $array->all('$a > 1 ');
#
#  isnt refaddr($array), refaddr($all);
#  is $all, 1;
#
#  isa_ok $array, 'Data::Object::Array';
#  isa_

  my $array = Data::Object::Array->new([2 .. 5]);
#  my $all   = $array->all('$value > 1 ');
#
#  isnt refaddr($array), refaddr($all);
#  is $all, 1;
#
#  isa_ok $array, 'Data::Object::Array';
#  isa_

o method' => sub {
  my $float = Data::Object::Float->new(-5.49);
  my $to    = $float->to(5);

  isnt refaddr($float), refaddr($to);
  is_deeply $to, [-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5];

  isa_ok

ascending' => sub {
  my $float = Data::Object::Float->new(0.99);
  my $to    = $float->to(5);

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

  isa_ok $float, 'Data::Obje

descending' => sub {
  my $float = Data::Object::Float->new(5.0);
  my $to    = $float->to(0);

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

  isa_ok $float, 'Data::Obje

$float->le(1.50);

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

  $le = $float->le(2.00);

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

  $le = $float->le(0);

  isnt refaddr($float), re

 $float->ge(0);

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

  $ge = $float->ge(1.00034);

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

  $ge = $float->ge(2);

  isnt refaddr($float), r

 my $array = Data::Object::Array->new([2 .. 5]);
  my $any   = $array->any(sub { shift > 5 });

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

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

#   my $array = Data::Object::Array->new([2 .. 5]);
#   my $any   = $array->any('$a > 5 ');
#
#   isnt refaddr($array), refaddr($any);
#   is $any, 0;
#
#   isa_ok $array, 'Data::Object::Array';
#   i

my $array = Data::Object::Array->new([2 .. 5]);
#   my $any   = $array->any('$value > 5 ');
#
#   isnt refaddr($array), refaddr($any);
#   is $any, 0;
#
#   isa_ok $array, 'Data::Object::Array';
#   i

nteger->le(1);

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

  $le = $integer->le(2);

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

  $le = $integer->le(0);

  isnt refaddr($integer)

thod' => sub {
  my $integer = Data::Object::Number->new(-5);
  my $to      = $integer->to(5);

  isnt refaddr($integer), refaddr($to);
  is_deeply $to, [-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5];

  isa_

nding' => sub {
  my $integer = Data::Object::Number->new(0);
  my $to      = $integer->to(5);

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

  isa_ok $integer, 'Data::

nding' => sub {
  my $integer = Data::Object::Number->new(5);
  my $to      = $integer->to(0);

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

  isa_ok $integer, 'Data::

 method' => sub {
  my $number = Data::Object::Number->new(-5);
  my $to     = $number->to(5);

  isnt refaddr($number), refaddr($to);
  is_deeply $to, [-5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5];

  isa_o

scending' => sub {
  my $number = Data::Object::Number->new(0);
  my $to     = $number->to(5);

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

  isa_ok $number, 'Data::Ob

scending' => sub {
  my $number = Data::Object::Number->new(5);
  my $to     = $number->to(0);

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

  isa_ok $number, 'Data::Ob

 $number->le(1);

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

  $le = $number->le(2);

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

  $le = $number->le(0);

  isnt refaddr($number), r

nteger->ge(0);

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

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

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

  $ge = $integer->ge(2);

  isnt refaddr($integer)

 $number->ge(0);

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

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

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

  $ge = $number->ge(2);

  isnt refaddr($number), r

Object::Hash->new({5, [4, 5, 6], 7, {8, 8, 9, 9, 0, bless {1, 2}}});
  my $fold = $hash->fold;

  isnt refaddr($hash), refaddr($fold);
  is_deeply $fold,
    {
    '5:0' => 4,
    '5:1' => 5,
    '5:2

:Hash->new(
    {5, [4, {5, 6}], 7, {8, 8, 9, 9, 0, bless {1, 2}}});
  my $fold = $hash->fold;

  isnt refaddr($hash), refaddr($fold);
  is_deeply $fold,
    {'5:0' => 4, '5:1.5' => 6, '7.8' => 8, '7.