CPAN::Groonga

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

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

  isa_o

hod' => sub {
  my $number = Data::Object::Number->new(10);
  my $downto = $number->downto(0);

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

  i

 => sub {
  my $number = Data::Object::Number->new(123456789);
  my $incr   = $number->incr();

  isnt refaddr($number), refaddr($incr);
  is $incr, 123456790;

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

hod' => sub {
  my $number = Data::Object::Number->new(12345);
  my $sqrt   = $number->sqrt();

  isnt refaddr($number), refaddr($sqrt);
  like $sqrt, qr/111.10805/;

  isa_ok $number, 'Data::Object::

ethod' => sub {
  my $number = Data::Object::Number->new(1);
  my $atan2  = $number->atan2(1);

  isnt refaddr($number), refaddr($atan2);
  like $atan2, qr/0.78539/;

  isa_ok $number, 'Data::Object::

thod' => sub {
  my $number = Data::Object::Number->new(12345);
  my $neg    = $number->neg();

  isnt refaddr($number), refaddr($neg);
  is $neg, -12345;

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

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

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

  

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

  isnt refaddr($number), refaddr($abs);
  is $abs, 12;

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

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

  isnt refaddr($number), refaddr($hex);
  is $hex, '0xaf';

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

thod' => sub {
  my $number = Data::Object::Number->new(12345);
  my $log    = $number->log();

  isnt refaddr($number), refaddr($log);
  like $log, qr/9.42100/;

  isa_ok $number, 'Data::Object::Numb

p method' => sub {
  my $number = Data::Object::Number->new(1);
  my $exp    = $number->exp();

  isnt refaddr($number), refaddr($exp);
  like $exp, qr/2.71828/;

  isa_ok $number, 'Data::Object::Numb

new(sub { [@_] });
  my $curry  = $code->curry(1, 2, 3);
  my $result = $curry->call(4, 5, 6);

  isnt refaddr($code), refaddr($curry);
  is_deeply $result, [1, 2, 3, 4, 5, 6];

  isa_ok $code,   'Dat

] });
  my $compose = $code->compose($code, 1, 2, 3);
  my $result  = $compose->call(4, 5, 6);

  isnt refaddr($code), refaddr($compose);
  is_deeply $result, [[1, 2, 3, 4, 5, 6]];

  isa_ok $code,   

w(sub { [@_] });
  my $rcurry = $code->rcurry(1, 2, 3);
  my $result = $rcurry->call(4, 5, 6);

  isnt refaddr($code), refaddr($rcurry);
  is_deeply $result, [4, 5, 6, 1, 2, 3];

  isa_ok $code,   'Da

 => sub {
  my $number = Data::Object::Number->new(123456789);
  my $decr   = $number->decr();

  isnt refaddr($number), refaddr($decr);
  is $decr, 123456788;

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

Code->new(sub { $_[0] % 2 });
  my $disjoin = $code->disjoin(sub          {-1});

  my $result;
  isnt refaddr($code), refaddr($disjoin);

  $result = $disjoin->call(0);
  isa_ok $result, 'Data::Objec

ethod' => sub {
  my $number = Data::Object::Number->new(12.5);
  my $int    = $number->int();

  isnt refaddr($number), refaddr($int);
  is $int, 12;

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

hod' => sub {
  my $number = Data::Object::Number->new(12345);
  my $pow    = $number->pow(3);

  isnt refaddr($number), refaddr($pow);
  is $pow, 1881365963625;

  isa_ok $number, 'Data::Object::Numb

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

  isnt refaddr($number), refaddr($cos);
  like $cos, qr/0.84385/;

  isa_ok $number, 'Data::Object::Numb

thod' => sub {
  my $number = Data::Object::Number->new(12345);
  my $sin    = $number->sin();

  isnt refaddr($number), refaddr($sin);
  like $sin, qr/-0.99377/;

  isa_ok $number, 'Data::Object::Num