lib/Moose/Autobox/Code.pm

   1 package Moose::Autobox::Code;
   2 use Moose::Role 'with';
   3 use autobox;
   4
   5 our $VERSION = '0.01';
   6
   7 with 'Moose::Autobox::Ref';
   8
   9 sub curry {
  10     my ($f, @a) = @_;
  11     return sub { $f->(@a, @_) }
  12 }
  13
  14 sub rcurry {
  15     my ($f, @a) = @_;
  16     return sub { $f->(@_, @a) }
  17 }
  18
  19 sub compose {
  20         my ($f, $f2, @rest) = @_;
  21     return $f if !$f2;
  22     return (sub { $f2->($f->(@_)) })->compose(@rest);
  23 }
  24
  25 sub disjoin {
  26     my ($f, $f2) = @_;
  27     return sub { $f->(@_) || $f2->(@_) }
  28 }
  29
  30 sub conjoin {
  31         my ($f, $f2) = @_;
  32         return sub { $f->(@_) && $f2->(@_) }
  33 }
  34
  35 1;
  36
  37 __END__
  38
  39 =pod
  40
  41 =head1 NAME
  42
  43 Moose::Autobox::Code - the Code role
  44
  45 =head1 SYNOPOSIS
  46
  47   use Moose::Autobox;
  48   use autobox;
  49
  50   my $adder = sub { $_[0] + $_[1] };
  51   my $add_2 = $adder->curry(2);
  52
  53   $add_2->(2); # returns 4
  54
  55 =head1 DESCRIPTION
  56
  57 This is a role to describe operations on the Code type.
  58
  59 =head1 METHODS
  60
  61 =over 4
  62
  63 =item B<curry (@values)>
  64
  65 =item B<rcurry (@values)>
  66
  67 =item B<conjoin (\&sub)>
  68
  69 =item B<disjoin (\&sub)>
  70
  71 =item B<compose (@subs)>
  72
  73 This will take a list of C<@subs> and compose them all into a single
  74 subroutine where the output of one sub will be the input of another.
  75
  76 =back
  77
  78 =over 4
  79
  80 =item B<meta>
  81
  82 =back
  83
  84 =head1 BUGS
  85
  86 All complex software has bugs lurking in it, and this module is no
  87 exception. If you find a bug please either email me, or add the bug
  88 to cpan-RT.
  89
  90 =head1 AUTHOR
  91
  92 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  93
  94 =head1 COPYRIGHT AND LICENSE
  95
  96 Copyright 2006 by Infinity Interactive, Inc.
  97
  98 L<http://www.iinteractive.com>
  99
 100 This library is free software; you can redistribute it and/or modify
 101 it under the same terms as Perl itself.
 102
 103 =cut