summaryrefslogtreecommitdiff
path: root/lib/MooseX/Net/API/Meta/Method
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/MooseX/Net/API/Meta/Method.pm9
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;
}