Moose::Autobox::Code - the Code role

  use Moose::Autobox;

  my $adder = sub { $_[0] + $_[1] };
  my $add_2 = $adder->curry(2);

  $add_2->(2); # returns 4

  # create a recursive subroutine 
  # using the Y combinator
  *factorial = sub {
      my $f = shift;
      sub {
          my $n = shift;
          return 1 if $n < 2;
          return $n * $f->($n - 1);
      }
  }->y;

  factorial(10) # returns 3628800

This is a role to describe operations on the Code type.

curry (@values)

rcurry (@values)

conjoin (\&sub)

disjoin (\&sub)

compose (@subs)

This will take a list of @subs and compose them all into a single subroutine where the output of one sub will be the input of another.

y

This implements the Y combinator.

u

This implements the U combinator.

meta

http://en.wikipedia.org/wiki/Fixed_point_combinator

http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/20469

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

Stevan Little <stevan@iinteractive.com>

Copyright 2006-2008 by Infinity Interactive, Inc.

http://www.iinteractive.com

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.