drop useless return value

lib/IdPAccountManager/AuthenticationToken.pm

@@ -60,8 +60,6 @@ sub set {
     foreach my $parameter (keys %args) {
         $self->{'persistent'}->$parameter($args{$parameter});
     }
-
-    return 1;
 }
 
 ## Save object to DB
@@ -99,8 +97,6 @@ sub print {
       $self->get('id'), $self->get('token'), $self->get('email_address'),
       $self->get('sp_entityid'),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('creation_date')));
-
-    return 1.;
 }
 
 ## list all authentication tokens

lib/IdPAccountManager/SAMLMetadata.pm

@@ -107,8 +107,6 @@ sub print {
 
     my $root = $self->{'federation_metadata_as_xml'}->documentElement();
     print $fd $root->toString();
-
-    return 1.;
 }
 
 ## returns a Lib::XML représenting an XML file

lib/IdPAccountManager/ServiceProvider.pm

@@ -30,8 +30,6 @@ sub print {
     printf $fd
       "ServiceProvider ID=%s; entityid=%s; displayname=%s; contacts=%s\n",
       $self->id, $self->entityid, $self->displayname, $self->contacts;
-
-    return 1.;
 }
 
 ## list contacts for this SP, including those listed in conf.dev_sp_contact

lib/IdPAccountManager/TestAccount.pm

@@ -91,8 +91,6 @@ sub print {
       $self->get('sp_entityid'), $self->get('account_profile'),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('creation_date'))),
       POSIX::strftime('%Y:%m:%d', localtime($self->get('expiration_date')));
-
-    return 1.;
 }
 
 ## list all test accounts