move

Author: ybrliiu

.gitignore

@@ -0,0 +1,31 @@
+/.build/
+/_build/
+/Build
+/Build.bat
+/blib
+/Makefile
+/pm_to_blib
+
+/carton.lock
+/.carton/
+/local/
+
+nytprof.out
+nytprof/
+
+cover_db/
+
+*.bak
+*.old
+*~
+*.swp
+*.o
+*.obj
+
+!LICENSE
+
+/_build_params
+
+MYMETA.*
+
+/Scalish-*

.proverc

@@ -0,0 +1,11 @@
+--exec "perl -Ilib -It/lib -MTest::Name::FromLine"
+-Ietc
+-Ilib
+-It/lib
+--color
+--failures
+--recurse
+--merge
+--timer
+--trap
+

.travis.yml

@@ -0,0 +1,12 @@
+language: perl
+sudo: false
+perl:
+  - "5.12"
+  - "5.14"
+  - "5.16"
+  - "5.18"
+  - "5.20"
+  - "5.22"
+  - "5.24"
+  - "5.26"
+

Build.PL

@@ -0,0 +1,12 @@
+# =========================================================================
+# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
+# DO NOT EDIT DIRECTLY.
+# =========================================================================
+
+use 5.008_001;
+use strict;
+
+use Module::Build::Tiny 0.035;
+
+Build_PL();
+

Changes

@@ -0,0 +1,6 @@
+Revision history for Perl extension Scalish
+
+{{$NEXT}}
+
+    - original version
+

LICENSE

@@ -0,0 +1,59 @@
+{
+   "abstract" : "It's new $module",
+   "author" : [
+      "mp0liiu <[email protected]>"
+   ],
+   "dynamic_config" : 0,
+   "generated_by" : "Minilla/v3.0.16, CPAN::Meta::Converter version 2.150010",
+   "license" : [
+      "perl_5"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+      "version" : "2"
+   },
+   "name" : "Scalish",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "xt",
+         "inc",
+         "share",
+         "eg",
+         "examples",
+         "author",
+         "builder"
+      ]
+   },
+   "prereqs" : {
+      "configure" : {
+         "requires" : {
+            "Module::Build::Tiny" : "0.035"
+         }
+      },
+      "develop" : {
+         "requires" : {
+            "Test::CPAN::Meta" : "0",
+            "Test::MinimumVersion::Fast" : "0.04",
+            "Test::PAUSE::Permissions" : "0.04",
+            "Test::Pod" : "1.41",
+            "Test::Spellunker" : "v0.2.7"
+         }
+      },
+      "runtime" : {
+         "requires" : {
+            "Class::Accessor::Lite" : "0.08",
+            "Exception::Tiny" : "v0.2.1",
+            "perl" : "5.014004"
+         }
+      },
+      "test" : {
+         "requires" : {
+            "Test::More" : "1.302135"
+         }
+      }
+   },
+   "release_status" : "unstable",
+   "version" : "0.01",
+   "x_serialization_backend" : "JSON::PP version 2.27400_02"
+}

META.json

@@ -0,0 +1,22 @@
+# NAME
+
+Scalish - It's new $module
+
+# SYNOPSIS
+
+    use Scalish;
+
+# DESCRIPTION
+
+Scalish is ...
+
+# LICENSE
+
+Copyright (C) mp0liiu.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+# AUTHOR
+
+mp0liiu <[email protected]>

README.md

@@ -0,0 +1,8 @@
+requires 'perl', '5.014004';
+requires 'Class::Accessor::Lite', '0.08';
+requires 'Exception::Tiny', '0.2.1';
+
+on 'test' => sub {
+    requires 'Test::More', '1.302135';
+};
+

cpanfile

@@ -0,0 +1,109 @@
+package Scalish;
+
+use Scalish::Exporter; # enables strict, warnigns and utf8
+our $VERSION = '0.01';
+
+use Scalish::Option::Some;
+use Scalish::Option::None;
+use Scalish::Either::Right;
+use Scalish::Either::Left;
+
+use Exporter qw( import );
+our @EXPORT_OK = qw( option some none right left for_each for_yield );
+
+sub option($) {
+    defined $_[0] ? Scalish::Option::Some->new( $_[0] ) : Scalish::Option::None->new;
+}
+
+sub some($) { Scalish::Option::Some->new( $_[0] ) }
+
+sub none { Scalish::Option::None->new() }
+
+sub right($) { Scalish::Either::Right->new( $_[0] ) }
+
+sub left($) { Scalish::Either::Left->new( $_[0] ) }
+
+sub _rec_for_each {
+    my ( $iters, $index, $params, $code ) = @_;
+    if ( $index == @$iters - 1 ) {
+        $iters->[$index]->foreach(
+            sub {
+                my $c = shift;
+                $code->( @$params, $c );
+            }
+        );
+    }
+    else {
+        $iters->[$index]->foreach(
+            sub {
+                my $c = shift;
+                push @$params, $c;
+                _rec_for_each( $iters, $index + 1, $params, $code );
+            }
+        );
+    }
+}
+
+sub for_each {
+    my ( $iters, $code ) = @_;
+    _rec_for_each( $iters, 0, [], $code );
+}
+
+sub _rec_for_yield {
+    my ( $iters, $index, $params, $code ) = @_;
+    if ( $index == @$iters - 1 ) {
+        $iters->[$index]->map(
+            sub {
+                my $c = shift;
+                $code->( @$params, $c );
+            }
+        );
+    }
+    else {
+        $iters->[$index]->flat_map(
+            sub {
+                my $c = shift;
+                push @$params, $c;
+                _rec_for_yield( $iters, $index + 1, $params, $code );
+            }
+        );
+    }
+}
+
+sub for_yield {
+    my ( $iters, $code ) = @_;
+    _rec_for_yield( $iters, 0, [], $code );
+}
+
+
+1;
+
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+Scalish - It's new $module
+
+=head1 SYNOPSIS
+
+    use Scalish;
+
+=head1 DESCRIPTION
+
+Scalish is ...
+
+=head1 LICENSE
+
+Copyright (C) mp0liiu.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 AUTHOR
+
+mp0liiu E<lt>[email protected]E<gt>
+
+=cut
+

lib/Scalish.pm

@@ -0,0 +1,60 @@
+package Scalish::Either::Either;
+
+use Scalish::Exporter;
+use parent 'Scalish::Either::Projection';
+
+use Scalish::Option::Some;
+use Scalish::Option::None;
+use Scalish::Either::LeftProjection;
+use Scalish::Either::RightProjection;
+
+# override
+sub _content { $_[0]->{content} }
+
+# override
+sub _is_available { $_[0]->is_right }
+
+# override
+sub filter {
+    my ( $self, $code ) = @_;
+    my $result = $self->exists($code);
+    $result ? Scalish::Option::Some->new($self) : Scalish::Option::None->new;
+}
+
+# override
+sub flat_map {
+    my ( $self, $code ) = @_;
+    $self->map($code)->join_right;
+}
+
+sub fold { Carp::croak 'you must define fold method.' }
+
+sub is_left() { Carp::croak 'you must define is_left method.' }
+
+sub is_right() { Carp::croak 'you must define is_right method.' }
+
+sub join_left { Carp::croak 'you must define join_left method.' }
+
+sub join_right { Carp::croak 'you must define join_right method.' }
+
+sub left {
+    my $self = shift;
+    Scalish::Either::LeftProjection->new($self);
+}
+
+sub merge {
+    my $self = shift;
+    $self->{content};
+}
+
+sub match;
+
+sub right {
+    my $self = shift;
+    Scalish::Either::RightProjection->new($self);
+}
+
+sub swap { Carp::croak 'you must define swap method.' }
+
+1;
+

lib/Scalish/Either/Either.pm

@@ -0,0 +1,54 @@
+package Scalish::Either::Left;
+
+use Scalish::Exporter;
+use parent 'Scalish::Either::Either';
+
+use Scalish::Either::Right;
+
+sub new {
+    my ( $class, $content ) = @_;
+    Carp::croak 'Too few arguments (required: $content)' if @_ < 2;
+    bless { content => $content }, $class;
+}
+
+sub fold {
+    my ( $self, $left_code, $right_code ) = @_;
+    Carp::croak 'Too few arguments (required: $left_code, $right_code)'
+      if @_ < 3;
+    local $_ = $self->{content};
+    $left_code->( $self->{content} );
+}
+
+sub is_left() { 1 }
+
+sub is_right() { 0 }
+
+sub join_left {
+    my $self = shift;
+    $self->{content}->isa('Scalish::Either::Either')
+      ? $self->{content}
+      : Carp::croak 'cant join_left';
+}
+
+sub join_right {
+    my $self = shift;
+    $self;
+}
+
+sub swap {
+    my $self = shift;
+    Either::Right->new( $self->{content} );
+}
+
+sub match {
+    Carp::confess 'Invalid arguments' if @_ < 5;
+    my ( $self, %args ) = @_;
+    for (qw/ Right Left /) {
+        my $code = $args{$_};
+        Carp::confess " please specify process $_ " if ref $code ne 'CODE';
+    }
+    local $_ = $self->{content};
+    $args{Left}->( $self->{content} );
+}
+
+1;