add method not allowed error handler

src/Error/MethodNotAllowedErrorHandlerImpl.pas

@@ -0,0 +1,56 @@
+{*!
+ * Fano Web Framework (https://fanoframework.github.io)
+ *
+ * @link      https://github.com/fanoframework/fano
+ * @copyright Copyright (c) 2018 Zamrony P. Juhara
+ * @license   https://github.com/fanoframework/fano/blob/master/LICENSE (MIT)
+ *}
+
+unit MethodNotAllowedErrorHandlerImpl;
+
+interface
+
+{$MODE OBJFPC}
+{$H+}
+
+uses
+
+    sysutils,
+    ErrorHandlerIntf,
+    EnvironmentEnumeratorIntf,
+    ConditionalErrorHandlerImpl;
+
+type
+
+    (*!---------------------------------------------------
+     * error handler that handle EMethodNotAllowed exception
+     * or pass to default error handler
+     *
+     * @author Zamrony P. Juhara <zamronypj@yahoo.com>
+     *---------------------------------------------------*)
+    TMethodNotAllowedErrorHandler = class (TConditionalErrorHandler)
+    protected
+        function condition(
+            const env : ICGIEnvironmentEnumerator;
+            const exc : Exception;
+            const status : integer;
+            const msg : string
+        ) : boolean; override;
+    end;
+
+implementation
+
+uses
+
+    EMethodNotAllowedImpl;
+
+    function TMethodNotAllowedErrorHandler.condition(
+        const env : ICGIEnvironmentEnumerator;
+        const exc : Exception;
+        const status : integer;
+        const msg : string
+    ) : boolean;
+    begin
+        result := exc is EMethodNotAllowed;
+    end;
+end.

src/Includes/Error/Implementations/error.aliases.inc

@@ -9,6 +9,7 @@ TConditionalErrorHandler = ConditionalErrorHandlerImpl.TConditionalErrorHandler;
 TDecoratorErrorHandler = DecoratorErrorHandlerImpl.TDecoratorErrorHandler;
 TBoolErrorHandler = BoolErrorHandlerImpl.TBoolErrorHandler;
 TNotFoundErrorHandler = NotFoundErrorHandlerImpl.TNotFoundErrorHandler;
+TMethodNotAllowedErrorHandler = MethodNotAllowedErrorHandlerImpl.TMethodNotAllowedErrorHandler;
 
 TFileLogErrorHandlerFactory = FileLogErrorHandlerFactoryImpl.TFileLogErrorHandlerFactory;
 TProductionErrorHandlerFactory = ProductionErrorHandlerFactoryImpl.TProductionErrorHandlerFactory;

src/Includes/Error/Implementations/implementations.inc

@@ -34,6 +34,7 @@ ConditionalErrorHandlerImpl,
 DecoratorErrorHandlerImpl,
 BoolErrorHandlerImpl,
 NotFoundErrorHandlerImpl,
+MethodNotAllowedErrorHandlerImpl,
 
 FileLogErrorHandlerFactoryImpl,
 ProductionErrorHandlerFactoryImpl,