params can be strict or no strict

1 files changed, 8 insertions, 1 deletions

diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm
index 9a9ab09..8643152 100644
--- a/lib/MooseX/Net/API/Meta/Method.pm
+++ b/lib/MooseX/Net/API/Meta/Method.pm
@@ -37,6 +37,11 @@ has params_in_url => (
     predicate => 'has_params_in_url',
     default   => 0
 );
+has strict => (
+    is => 'ro',
+    isa => 'Bool',
+    default => 1,
+);
 has authentication => (
     is        => 'ro',
     isa       => 'Bool',
@@ -167,6 +172,8 @@ sub _validate_before_execute {
 sub _check_params_before_run {
     my ($self, $args) = @_;
 
+    return if !$self->strict;
+
     # check if there is no undeclared param
     foreach my $arg (keys %$args) {
         if (!$self->find_request_parameter(sub {/$arg/})) {
@@ -204,7 +211,7 @@ sub _build_path {
             $path =~ s/(?:\/)?(?:\$|:)(\w+)$//;
         }
     }
-    $path =~ s/(?:\/)?(?:\$|:)(\w+)$//;
+    $path =~ s/(?:\/)?(?:\$|\\:)(\w+)$//;
     return $path;
 }