fear 1.2.0 → 2.0.0

data/lib/fear/either.rb

@@ -72,7 +72,7 @@ module Fear
   #   Performs the given block if this is a +Right+.
   #   @yieldparam [any] value
   #   @yieldreturn [void]
-  #   @return [Option] itself
+  #   @return [Fear::Either] itself
   #   @example
   #     Fear.right(17).each do |value|
   #       puts value
@@ -95,8 +95,8 @@ module Fear
   #   Returns the given block applied to the value from this +Right+
   #   or returns this if this is a +Left+.
   #   @yieldparam [any] value
-  #   @yieldreturn [Option]
-  #   @return [Option]
+  #   @yieldreturn [Fear::Either]
+  #   @return [Fear::Either]
   #   @example
   #     Fear.right(42).flat_map { |v| Fear.right(v/2) }         #=> Fear.right(21)
   #     Fear.left('undefined').flat_map { |v| Fear.right(v/2) } #=> Fear.left('undefined')
@@ -106,7 +106,7 @@ module Fear
   #   this is a +Left+.
   #   @return [Option]
   #   @example
-  #     Fear.right(42).to_option          #=> Fear.some(21)
+  #     Fear.right(42).to_option          #=> Fear.some(42)
   #     Fear.left('undefined').to_option  #=> Fear.none()
   #
   # @!method any?(&predicate)
@@ -331,3 +331,7 @@ module Fear
     end
   end
 end
+
+require "fear/either_pattern_match"
+require "fear/left"
+require "fear/right"

data/lib/fear/either_api.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/either"
+
 module Fear
   module EitherApi
     # @param value [any]

data/lib/fear/either_pattern_match.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/pattern_match"
+
 module Fear
   # Either pattern matcher
   #
@@ -24,18 +26,12 @@ module Fear
   # @note it has two optimized subclasses +Fear::LeftPatternMatch+ and +Fear::RightPatternMatch+
   # @api private
   class EitherPatternMatch < Fear::PatternMatch
-    LEFT_EXTRACTOR = :left_value.to_proc
-    public_constant :LEFT_EXTRACTOR
-
-    RIGHT_EXTRACTOR = :right_value.to_proc
-    public_constant :RIGHT_EXTRACTOR
-
     # Match against +Fear::Right+
     #
     # @param conditions [<#==>]
     # @return [Fear::EitherPatternMatch]
     def right(*conditions, &effect)
-      branch = Fear.case(Fear::Right, &RIGHT_EXTRACTOR).and_then(Fear.case(*conditions, &effect))
+      branch = Fear.case(Fear::Right, &:right_value).and_then(Fear.case(*conditions, &effect))
       or_else(branch)
     end
     alias success right
@@ -45,9 +41,12 @@ module Fear
     # @param conditions [<#==>]
     # @return [Fear::EitherPatternMatch]
     def left(*conditions, &effect)
-      branch = Fear.case(Fear::Left, &LEFT_EXTRACTOR).and_then(Fear.case(*conditions, &effect))
+      branch = Fear.case(Fear::Left, &:left_value).and_then(Fear.case(*conditions, &effect))
       or_else(branch)
     end
     alias failure left
   end
 end
+
+require "fear/left_pattern_match"
+require "fear/right_pattern_match"

data/lib/fear/failure.rb

@@ -6,15 +6,6 @@ module Fear
     include RightBiased::Left
     include FailurePatternMatch.mixin
 
-    EXTRACTOR = proc do |try|
-      if Fear::Failure === try
-        Fear.some([try.exception])
-      else
-        Fear.none
-      end
-    end
-    public_constant :EXTRACTOR
-
     # @param [StandardError]
     def initialize(exception)
       @exception = exception

data/lib/fear/failure_pattern_match.rb

@@ -7,4 +7,6 @@ module Fear
       self
     end
   end
+
+  private_constant :FailurePatternMatch
 end

data/lib/fear/for_api.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/for"
+
 module Fear
   module ForApi
     # Syntactic sugar for composition of  multiple monadic operations. It supports two such

data/lib/fear/future.rb

@@ -1,11 +1,5 @@
 # frozen_string_literal: true
 
-begin
-  require "concurrent"
-rescue LoadError
-  puts "You must add 'concurrent-ruby' to your Gemfile in order to use Fear::Future"
-end
-
 module Fear
   # Asynchronous computations that yield futures are created
   # with the +Fear.future+ call:
@@ -61,7 +55,7 @@ module Fear
     #
     def initialize(promise = nil, **options, &block)
       if block_given? && promise
-        raise ArgumentError, "pass block or future"
+        raise ArgumentError, "pass block or promise"
       end
 
       @options = options
@@ -249,7 +243,7 @@ module Fear
     #     )
     #
     def transform(success, failure)
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete_match do |m|
         m.success { |value| promise.success(success.(value)) }
         m.failure { |error| promise.failure(failure.(error)) }
@@ -268,7 +262,7 @@ module Fear
     #   future.map { |v| v * 2 } #=> the same as Fear.future { 2 * 2 }
     #
     def map(&block)
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete do |try|
         promise.complete!(try.map(&block))
       end
@@ -294,7 +288,7 @@ module Fear
     #   end
     #
     def flat_map
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete_match do |m|
         m.case(Fear::Failure) { |failure| promise.complete!(failure) }
         m.success do |value|
@@ -348,7 +342,7 @@ module Fear
     #
     #
     def recover(&block)
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete do |try|
         promise.complete!(try.recover(&block))
       end
@@ -374,7 +368,7 @@ module Fear
     #     # but it performs two calls asynchronously
     #
     def zip(other)
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete_match do |m|
         m.success do |value|
           other.on_complete do |other_try|
@@ -412,7 +406,7 @@ module Fear
     #   f.fallback_to(g) # evaluates to 5
     #
     def fallback_to(fallback)
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete_match do |m|
         m.success { |value| promise.complete!(value) }
         m.failure do |error|
@@ -447,7 +441,7 @@ module Fear
     #   end
     #
     def and_then
-      promise = Promise.new(@options)
+      promise = Promise.new(**@options)
       on_complete do |try|
         Fear.try do
           Fear::Try.matcher { |m| yield(m) }.call_or_else(try, &:itself)
@@ -478,9 +472,8 @@ module Fear
       # @return [Fear::Future]
       #
       def failed(exception)
-        new(executor: Concurrent::ImmediateExecutor.new) do
-          raise exception
-        end
+        new { raise exception }
+          .yield_self { |future| Fear::Await.ready(future, 10) }
       end
 
       # Creates an already completed +Future+ with the specified result.
@@ -488,9 +481,8 @@ module Fear
       # @return [Fear::Future]
       #
       def successful(result)
-        new(executor: Concurrent::ImmediateExecutor.new) do
-          result
-        end
+        new { result }
+          .yield_self { |future| Fear::Await.ready(future, 10) }
       end
     end
   end

data/lib/fear/future_api.rb

@@ -1,5 +1,16 @@
 # frozen_string_literal: true
 
+begin
+  require "concurrent"
+rescue LoadError
+  puts "You must add 'concurrent-ruby' to your Gemfile in order to use Fear::Future"
+end
+
+require "fear/awaitable"
+require "fear/await"
+require "fear/future"
+require "fear/promise"
+
 module Fear
   # rubocop: disable Layout/LineLength
   module FutureApi
@@ -13,8 +24,8 @@ module Fear
     #   f = Fear.future(executor: :io) { open('http://example.com') }
     #   f.map(&:read).each { |body| puts body }
     #
-    def future(options = {}, &block)
-      Future.new(options, &block)
+    def future(**options, &block)
+      Future.new(nil, **options, &block)
     end
   end
   # rubocop: enable Layout/LineLength

data/lib/fear/left.rb

@@ -6,15 +6,6 @@ module Fear
     include RightBiased::Left
     include LeftPatternMatch.mixin
 
-    EXTRACTOR = proc do |either|
-      if Fear::Left === either
-        Fear.some([either.left_value])
-      else
-        Fear.none
-      end
-    end
-    public_constant :EXTRACTOR
-
     # @api private
     def left_value
       value

data/lib/fear/none.rb

@@ -7,15 +7,6 @@ module Fear
     include RightBiased::Left
     include NonePatternMatch.mixin
 
-    EXTRACTOR = proc do |option|
-      if Fear::None === option
-        Fear.some([])
-      else
-        Fear.none
-      end
-    end
-    public_constant :EXTRACTOR
-
     # @raise [NoSuchElementError]
     def get
       raise NoSuchElementError
@@ -31,6 +22,13 @@ module Fear
       true
     end
 
+    alias :blank? :empty?
+
+    # @return [false]
+    def present?
+      false
+    end
+
     # @return [None]
     def select(*)
       self

data/lib/fear/option.rb

@@ -121,7 +121,7 @@ module Fear
   #   @yieldreturn [Boolean]
   #   @return [Option]
   #   @example
-  #     Fear.some(42).select { |v| v > 40 } #=> Fear.success(21)
+  #     Fear.some(42).select { |v| v > 40 } #=> Fear.success(42)
   #     Fear.some(42).select { |v| v < 40 } #=> None
   #     Fear.none.select { |v| v < 40 }   #=> None
   #
@@ -258,3 +258,7 @@ module Fear
     end
   end
 end
+
+require "fear/option_pattern_match"
+require "fear/some"
+require "fear/none"

data/lib/fear/option_api.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/option"
+
 module Fear
   module OptionApi
     # An +Option+ factory which creates +Some+ if the argument is

data/lib/fear/option_pattern_match.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/pattern_match"
+
 module Fear
   # Option pattern matcher
   #
@@ -24,15 +26,12 @@ module Fear
   # @note it has two optimized subclasses +Fear::SomePatternMatch+ and +Fear::NonePatternMatch+
   # @api private
   class OptionPatternMatch < Fear::PatternMatch
-    GET_METHOD = :get.to_proc
-    private_constant :GET_METHOD
-
     # Match against Some
     #
     # @param conditions [<#==>]
     # @return [Fear::OptionPatternMatch]
     def some(*conditions, &effect)
-      branch = Fear.case(Fear::Some, &GET_METHOD).and_then(Fear.case(*conditions, &effect))
+      branch = Fear.case(Fear::Some, &:get).and_then(Fear.case(*conditions, &effect))
       or_else(branch)
     end
 
@@ -46,3 +45,6 @@ module Fear
     end
   end
 end
+
+require "fear/some_pattern_match"
+require "fear/none_pattern_match"

data/lib/fear/partial_function/empty.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/empty_partial_function"
+
 module Fear
   module PartialFunction
     EMPTY = EmptyPartialFunction.new

data/lib/fear/partial_function/guard.rb

@@ -1,15 +1,15 @@
 # frozen_string_literal: true
 
+require "fear/partial_function/guard/or"
+require "fear/partial_function/guard/and"
+require "fear/partial_function/guard/and3"
+
 module Fear
   module PartialFunction
     # Guard represents PartialFunction guardian
     #
     # @api private
     class Guard
-      autoload :And, "fear/partial_function/guard/and"
-      autoload :And3, "fear/partial_function/guard/and3"
-      autoload :Or, "fear/partial_function/guard/or"
-
       class << self
         # Optimized version for combination of two guardians
         # Two guarding is a very common situation. For example checking for Some, and checking

data/lib/fear/partial_function/or_else.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/utils"
+
 module Fear
   module PartialFunction
     # Composite function produced by +PartialFunction#or_else+ method

data/lib/fear/partial_function.rb

@@ -1,5 +1,14 @@
 # frozen_string_literal: true
 
+require "fear/partial_function/and_then"
+require "fear/partial_function/any"
+require "fear/partial_function/combined"
+require "fear/partial_function/empty"
+require "fear/partial_function/guard"
+require "fear/partial_function/lifted"
+require "fear/partial_function/or_else"
+require "fear/partial_function_class"
+
 module Fear
   # A partial function is a unary function defined on subset of all possible inputs.
   # The method +defined_at?+ allows to test dynamically if an arg is in
@@ -45,14 +54,6 @@ module Fear
   #   @return [#call]
   #   @abstract
   module PartialFunction
-    autoload :AndThen, "fear/partial_function/and_then"
-    autoload :Any, "fear/partial_function/any"
-    autoload :Combined, "fear/partial_function/combined"
-    autoload :EMPTY, "fear/partial_function/empty"
-    autoload :Guard, "fear/partial_function/guard"
-    autoload :Lifted, "fear/partial_function/lifted"
-    autoload :OrElse, "fear/partial_function/or_else"
-
     # Checks if a value is contained in the function's domain.
     #
     # @param arg [any]

data/lib/fear/pattern_match.rb

@@ -95,16 +95,6 @@ module Fear
       or_else(Fear.case(*guards, &effect))
     end
 
-    # @param pattern [String]
-    # @param guards [<#===>]
-    # @param effect [Proc]
-    # @return [Fear::PartialFunction]
-    # @see #case for details
-    # @see Fear.xcase for details
-    def xcase(pattern, *guards, &effect)
-      or_else(Fear.xcase(pattern, *guards, &effect))
-    end
-
     # @see Fear::PartialFunction#or_else
     def or_else(other)
       self.result = result.or_else(other)

data/lib/fear/pattern_matching_api.rb

@@ -1,5 +1,8 @@
 # frozen_string_literal: true
 
+require "fear/partial_function"
+require "fear/pattern_match"
+
 module Fear
   # @api private
   module PatternMatchingApi
@@ -44,12 +47,6 @@ module Fear
     #     m.case(Integer, :even?.to_proc) { |x| ... }
     #     m.case(Integer, :odd?.to_proc) { |x| ... }
     #
-    # If you want to perform pattern destruction, use +#xcase+ method
-    #
-    #     m.xcase('Date(year, 12, 31)') { |year:| "Last day of the year #{year}" }
-    #
-    # The pattern above ensures that it's 31 of December and extracts year to block named parameter
-    #
     # Since matcher returns +Fear::PartialFunction+, you can combine matchers using
     # partial function API:
     #
@@ -111,27 +108,5 @@ module Fear
     def case(*guards, &function)
       PartialFunction.and(*guards, &function)
     end
-
-    # Creates partial function defined on domain described with guard
-    # and perform pattern extraction.
-    #
-    # @param pattern [String] pattern to match against
-    # @param guards [<#===>] other guards against extracted pattern
-    # @yieldparam hash [{Symbol => any}]
-    # @return [Fear::PartialFunction]
-    #
-    # @example
-    #   pf = Fear.xcase('['ok', Some(body)]') { |body:| ...  }
-    #   pf.defined_at?(['ok', Fear.some(body)]) #=> true
-    #   pf.defined_at?(['err', Fear.none]) #=> false
-    #
-    # @example pattern and guards. It matches against non-empty body
-    #
-    #   pf = Fear.xcase('['ok', Some(body)]', ->(body:) { !body.empty? }) { }
-    #
-    def xcase(pattern, *guards, &function)
-      warn "NOTE: Fear.xcase is deprecated and will be removed in a future version. Use `case .. in ..` instead."
-      Fear[pattern].and_then(self.case(*guards, &function))
-    end
   end
 end

data/lib/fear/promise.rb

@@ -1,16 +1,10 @@
 # frozen_string_literal: true
 
-begin
-  require "concurrent"
-rescue LoadError
-  puts "You must add 'concurrent-ruby' to your Gemfile in order to use Fear::Future"
-end
-
 module Fear
   # @api private
   class Promise < Concurrent::IVar
     # @param options [Hash] options passed to underlying +Concurrent::Promise+
-    def initialize(**options)
+    def initialize(*_, **options)
       super()
       @options = options
       @promise = Concurrent::Promise.new(options) do
@@ -27,7 +21,7 @@ module Fear
 
     # @return [Fear::Future]
     def to_future
-      Future.new(promise, options)
+      Future.new(promise, **options)
     end
 
     # Complete this promise with successful result
@@ -38,7 +32,7 @@ module Fear
       complete(Fear.success(value))
     end
 
-    # Complete this promise with failure
+    # Complete this promise with value
     # @param value [any]
     # @return [self]
     # @raise [IllegalStateException]

data/lib/fear/right.rb

@@ -6,16 +6,6 @@ module Fear
     include RightBiased::Right
     include RightPatternMatch.mixin
 
-    EXTRACTOR = proc do |either|
-      if Fear::Right === either
-        Fear.some([either.right_value])
-      else
-        Fear.none
-      end
-    end
-
-    public_constant :EXTRACTOR
-
     # @api private
     def right_value
       value

data/lib/fear/right_biased.rb

@@ -111,7 +111,7 @@ module Fear
 
     module Left
       prepend Interface
-      include Utils
+
       # @!method get_or_else(default)
       #   @param default [any]
       #   @return [any] default value

data/lib/fear/right_pattern_match.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/either_pattern_match"
+
 module Fear
   # @api private
   class RightPatternMatch < EitherPatternMatch

data/lib/fear/some.rb

@@ -6,16 +6,6 @@ module Fear
     include RightBiased::Right
     include SomePatternMatch.mixin
 
-    EXTRACTOR = proc do |option|
-      if Fear::Some === option
-        Fear.some([option.get])
-      else
-        Fear.none
-      end
-    end
-
-    public_constant :EXTRACTOR
-
     attr_reader :value
     protected :value
 
@@ -38,6 +28,13 @@ module Fear
       false
     end
 
+    alias :blank? :empty?
+
+    # @return [true]
+    def present?
+      true
+    end
+
     # @return [Option]
     def select
       if yield(value)

data/lib/fear/struct.rb

@@ -1,5 +1,7 @@
 # frozen_string_literal: true
 
+require "fear/pattern_match"
+
 module Fear
   # Structs are like regular classes and good for modeling immutable data.
   #
@@ -36,18 +38,6 @@ module Fear
   #     john.admin #=> false
   #     admin_john.admin #=> true
   #
-  # It's possible to match against struct attributes. The following example extracts email from
-  # user only if user is admin
-  #
-  #     john = User.new(id: 2, email: 'john@example.com', admin: false)
-  #     john.match |m|
-  #       m.xcase('Fear::Struct(_, email, true)') do |email|
-  #         email
-  #       end
-  #     end
-  #
-  # Note, parameters got extracted in order they was defined.
-  #
   class Struct
     include PatternMatch.mixin
 
@@ -58,7 +48,6 @@ module Fear
       # @api private
       def inherited(base)
         base.instance_variable_set(:@attributes, attributes)
-        Fear.register_extractor(base, Fear.case(base, &:to_a).lift)
       end
 
       # Defines attribute
@@ -132,7 +121,7 @@ module Fear
     #   admin_john.admin #=> true
     #
     def copy(**attributes)
-      self.class.new(to_h.merge(attributes))
+      self.class.new(**to_h.merge(attributes))
     end
 
     # Returns the struct attributes as an array of symbols

data/lib/fear/success.rb

@@ -6,15 +6,6 @@ module Fear
     include RightBiased::Right
     include SuccessPatternMatch.mixin
 
-    EXTRACTOR = proc do |try|
-      if Fear::Success === try
-        Fear.some([try.get])
-      else
-        Fear.none
-      end
-    end
-    public_constant :EXTRACTOR
-
     attr_reader :value
     protected :value
 

data/lib/fear/success_pattern_match.rb

@@ -9,4 +9,6 @@ module Fear
       self
     end
   end
+
+  private_constant :SuccessPatternMatch
 end