From f233196fa9155ee4bc46cebd85052bd5cfcaa36d Mon Sep 17 00:00:00 2001 From: Brian Phillips Date: Tue, 4 Dec 2012 22:29:48 -0600 Subject: make sure authentication default on method is lazy if it's not marked lazy, the predicate has no value (as it's always set at object creation time) --- lib/Net/HTTP/Spore/Meta/Method.pm | 1 + t/spore-method/base.t | 2 ++ 2 files changed, 3 insertions(+) diff --git a/lib/Net/HTTP/Spore/Meta/Method.pm b/lib/Net/HTTP/Spore/Meta/Method.pm index 50e9f92..cc48230 100644 --- a/lib/Net/HTTP/Spore/Meta/Method.pm +++ b/lib/Net/HTTP/Spore/Meta/Method.pm @@ -29,6 +29,7 @@ has authentication => ( isa => Boolean, predicate => 'has_authentication', default => 0, + lazy => 1, coerce => 1, ); has base_url => ( diff --git a/t/spore-method/base.t b/t/spore-method/base.t index 1ea5018..61d8608 100644 --- a/t/spore-method/base.t +++ b/t/spore-method/base.t @@ -36,4 +36,6 @@ ok $method = Net::HTTP::Spore::Meta::Method->wrap( required => [qw/name id/], ); +ok !$method->has_authentication, 'authentication not set on method'; + done_testing; -- cgit v1.2.3