TestAccount.pm.ORIG

package IdPAccountManager::TestAccount;

use Moose;
use Moose::Util::TypeConstraints;

subtype 'entityid',
    as 'Str',
    where { /^(urn:|http(s)?\:\/\/)/ },
    message { "$_ is not a valide entityid"};

has 'account_profile' => (is => 'ro',
                          isa => 'Str',
                          required => 1);
has 'sp_entityid' => (is => 'rw',
                      isa => 'entityid',
                      required => 1,
                      );

#before 'new' => sub { print "about to call new\n"; };

1; # Magic true value required at end of module
__END__

=head1 NAME

IdPAccountManager::TestAccount - Manage test user accounts for the Test Identity Provider

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 SUBROUTINES/METHODS

=head1 AUTHOR

Olivier Salaün (olivier.salaun@renater.fr)