From fbec06d6d6f9eafc6a1df9c630223b87d42b3f2d Mon Sep 17 00:00:00 2001 From: Chris Andrews Date: Nov 24 2010 15:24:25 +0000 Subject: Tighten up validation of LogoutRequest attributes. --- diff --git a/Makefile.PL b/Makefile.PL index f696adf..544559b 100755 --- a/Makefile.PL +++ b/Makefile.PL @@ -27,6 +27,7 @@ requires 'DateTime::Format::XSD'; requires 'Moose'; requires 'MooseX::Types'; requires 'MooseX::Types::URI'; +requires 'MooseX::Types::Common'; author_requires 'Test::NoTabs'; author_requires 'Test::Pod' => '1.14'; diff --git a/lib/Net/SAML2/Protocol/LogoutRequest.pm b/lib/Net/SAML2/Protocol/LogoutRequest.pm index 4c2d73a..9248aea 100644 --- a/lib/Net/SAML2/Protocol/LogoutRequest.pm +++ b/lib/Net/SAML2/Protocol/LogoutRequest.pm @@ -1,6 +1,6 @@ package Net::SAML2::Protocol::LogoutRequest; use Moose; -use MooseX::Types::Moose qw/ Str /; +use MooseX::Types::Common::String qw/ NonEmptySimpleStr /; use MooseX::Types::URI qw/ Uri /; with 'Net::SAML2::Role::Templater', @@ -34,8 +34,8 @@ Arguments: =cut -has 'session' => (isa => Str, is => 'ro', required => 1); -has 'nameid' => (isa => Str, is => 'ro', required => 1); +has 'session' => (isa => NonEmptySimpleStr, is => 'ro', required => 1); +has 'nameid' => (isa => NonEmptySimpleStr, is => 'ro', required => 1); has 'issuer' => (isa => Uri, is => 'ro', required => 1, coerce => 1); has 'destination' => (isa => Uri, is => 'ro', required => 1, coerce => 1);