enforce proper capitalization

lib/IdPAccountManager/AuthenticationToken.pm

@@ -7,8 +7,8 @@ package IdPAccountManager::AuthenticationToken;
 use strict;
 use warnings;
 
-use IdPAccountManager::Data::Authenticationtoken;
-use IdPAccountManager::Data::Authenticationtoken::Manager;
+use IdPAccountManager::Data::AuthenticationToken;
+use IdPAccountManager::Data::AuthenticationToken::Manager;
 
 use Conf;
 
@@ -19,7 +19,7 @@ use Carp;
 
 INIT {
     ## Set error mode  to non fatal
-    IdPAccountManager::Data::Authenticationtoken::Manager->error_mode('return');
+    IdPAccountManager::Data::AuthenticationToken::Manager->error_mode('return');
 }
 
 sub new {
@@ -30,13 +30,13 @@ sub new {
 
     bless $self, $pkg;
 
-    ## Object may be created either with a hashref as argument or an IdPAccountManager::Data::Authenticationtoken object
-    ## Second case is usefull when fetching a set of IdPAccountManager::Data::Authenticationtoken via IdPAccountManager::Data::Authenticationtoken::Manager
-    if (ref($_[0]) eq 'IdPAccountManager::Data::Authenticationtoken') {
+    ## Object may be created either with a hashref as argument or an IdPAccountManager::Data::AuthenticationToken object
+    ## Second case is usefull when fetching a set of IdPAccountManager::Data::AuthenticationToken via IdPAccountManager::Data::AuthenticationToken::Manager
+    if (ref($_[0]) eq 'IdPAccountManager::Data::AuthenticationToken') {
         $self->{'persistent'} = $_[0];
     } else {
         $self->{'persistent'} =
-          IdPAccountManager::Data::Authenticationtoken->new(%args);
+          IdPAccountManager::Data::AuthenticationToken->new(%args);
     }
 
     return $self;
@@ -114,7 +114,7 @@ sub list_authentication_tokens {
     my %args = @_;
 
     my $persistent_tokens =
-      IdPAccountManager::Data::Authenticationtoken::Manager
+      IdPAccountManager::Data::AuthenticationToken::Manager
       ->get_authenticationtokens(%args);
     my $authentication_tokens;
     foreach my $persistent_token (@{$persistent_tokens}) {

lib/IdPAccountManager/Data/Authenticationtoken.pm → lib/IdPAccountManager/Data/AuthenticationToken.pm

-package IdPAccountManager::Data::Authenticationtoken;
+package IdPAccountManager::Data::AuthenticationToken;
 
 use strict;
 use warnings;

lib/IdPAccountManager/Data/Authenticationtoken/Manager.pm

-package IdPAccountManager::Data::Authenticationtoken::Manager;
-
-use strict;
-use warnings;
-
-use base qw(Rose::DB::Object::Manager);
-
-use IdPAccountManager::Data::Authenticationtoken;
-
-sub object_class { 'IdPAccountManager::Data::Authenticationtoken' }
-
-__PACKAGE__->make_manager_methods('authenticationtokens');
-
-1;
-

lib/IdPAccountManager/Data/Serviceprovider.pm → lib/IdPAccountManager/Data/ServiceProvider.pm

-package IdPAccountManager::Data::Serviceprovider;
+package IdPAccountManager::Data::ServiceProvider;
 
 use strict;
 use warnings;

lib/IdPAccountManager/Data/Serviceprovider/Manager.pm

-package IdPAccountManager::Data::Serviceprovider::Manager;
-
-use strict;
-use warnings;
-
-use base qw(Rose::DB::Object::Manager);
-
-use IdPAccountManager::Data::Serviceprovider;
-
-sub object_class { 'IdPAccountManager::Data::Serviceprovider' }
-
-__PACKAGE__->make_manager_methods('serviceproviders');
-
-1;
-

lib/IdPAccountManager/Data/Testaccount.pm → lib/IdPAccountManager/Data/TestAccount.pm

-package IdPAccountManager::Data::Testaccount;
+package IdPAccountManager::Data::TestAccount;
 
 use strict;
 use warnings;

lib/IdPAccountManager/Data/Testaccount/Manager.pm → lib/IdPAccountManager/Data/TestAccount/Manager.pm

-package IdPAccountManager::Data::Testaccount::Manager;
+package IdPAccountManager::Data::TestAccount::Manager;
 
 use strict;
 use warnings;
 
 use base qw(Rose::DB::Object::Manager);
 
-use IdPAccountManager::Data::Testaccount;
+use IdPAccountManager::Data::TestAccount;
 
-sub object_class { 'IdPAccountManager::Data::Testaccount' }
+sub object_class { 'IdPAccountManager::Data::TestAccount' }
 
 __PACKAGE__->make_manager_methods('testaccounts');
 

lib/IdPAccountManager/ServiceProvider.pm

@@ -7,10 +7,10 @@ package IdPAccountManager::ServiceProvider;
 use strict;
 use warnings;
 
-use base 'IdPAccountManager::Data::Serviceprovider';
+use base 'IdPAccountManager::Data::ServiceProvider';
 
-use IdPAccountManager::Data::Serviceprovider;
-use IdPAccountManager::Data::Serviceprovider::Manager;
+use IdPAccountManager::Data::ServiceProvider;
+use IdPAccountManager::Data::ServiceProvider::Manager;
 
 use IdPAccountManager::Tools;
 use Conf;
@@ -19,7 +19,7 @@ use Carp;
 
 INIT {
     ## Set error mode  to non fatal
-    IdPAccountManager::Data::Serviceprovider::Manager->error_mode('return');
+    IdPAccountManager::Data::ServiceProvider::Manager->error_mode('return');
 }
 
 ## Print the content of a test account
@@ -69,7 +69,7 @@ sub list_service_providers {
     my %args = @_;
 
     my $persistent_accounts =
-      IdPAccountManager::Data::Serviceprovider::Manager->get_serviceproviders(
+      IdPAccountManager::Data::ServiceProvider::Manager->get_serviceproviders(
         %args);
     my $service_providers;
     foreach my $persistent_sp (@{$persistent_accounts}) {

lib/IdPAccountManager/TestAccount.pm

@@ -7,8 +7,8 @@ package IdPAccountManager::TestAccount;
 use strict;
 use warnings;
 
-use IdPAccountManager::Data::Testaccount;
-use IdPAccountManager::Data::Testaccount::Manager;
+use IdPAccountManager::Data::TestAccount;
+use IdPAccountManager::Data::TestAccount::Manager;
 
 use IdPAccountManager::Tools;
 use Conf;
@@ -18,7 +18,7 @@ use Carp;
 
 INIT {
     ## Set error mode  to non fatal
-    IdPAccountManager::Data::Testaccount::Manager->error_mode('return');
+    IdPAccountManager::Data::TestAccount::Manager->error_mode('return');
 }
 
 sub new {
@@ -29,13 +29,13 @@ sub new {
 
     bless $self, $pkg;
 
-    ## Object may be created either with a hashref as argument or an IdPAccountManager::Data::Testaccount object
-    ## Second case is usefull when fetching a set of IdPAccountManager::Data::Testaccount via IdPAccountManager::Data::Testaccount::Manager
-    if (ref($_[0]) eq 'IdPAccountManager::Data::Testaccount') {
+    ## Object may be created either with a hashref as argument or an IdPAccountManager::Data::TestAccount object
+    ## Second case is usefull when fetching a set of IdPAccountManager::Data::TestAccount via IdPAccountManager::Data::TestAccount::Manager
+    if (ref($_[0]) eq 'IdPAccountManager::Data::TestAccount') {
         $self->{'persistent'} = $_[0];
     } else {
         $self->{'persistent'} =
-          IdPAccountManager::Data::Testaccount->new(%args);
+          IdPAccountManager::Data::TestAccount->new(%args);
     }
 
     return $self;
@@ -103,7 +103,7 @@ sub list_test_accounts {
     my %args = @_;
 
     my $persistent_accounts =
-      IdPAccountManager::Data::Testaccount::Manager->get_testaccounts(%args);
+      IdPAccountManager::Data::TestAccount::Manager->get_testaccounts(%args);
     my $accounts;
     foreach my $persistent_account (@{$persistent_accounts}) {
         my $account = IdPAccountManager::TestAccount->new($persistent_account);