Add deprecation warning to id() method

Signed-off-by: Wesley Schwengle <waterkip@cpan.org>

Author: waterkip

lib/Net/SAML2/SP.pm

@@ -162,8 +162,14 @@ Consumer Services.
 
 has 'url'    => (isa => Uri, is => 'ro', required => 1, coerce => 1);
 
-has 'id'        => (isa => XsdID, is => 'ro', builder => '_build_id');
-has 'issuer'    => (isa => 'Str', is => 'ro', required => 1);
+has '_id' => (
+    isa      => XsdID,
+    is       => 'ro',
+    builder  => '_build_id',
+    init_arg => 'id'
+);
+
+has 'issuer' => (isa => 'Str', is => 'ro', required => 1);
 
 has 'cert'   => (isa => 'Str', is => 'ro', required => 1, predicate => 'has_cert');
 has 'key'    => (isa => 'Str', is => 'ro', required => 1);
@@ -298,6 +304,14 @@ sub _build_id {
     return Net::SAML2::Util::generate_id();
 }
 
+sub id {
+    my $self = shift;
+    Net::SAML2::Util::deprecation_warning
+      "id() has been renamed to issuer()";
+    return $self->issuer;
+}
+
+
 sub _build_encryption_key_text {
     my ($self) = @_;
 
@@ -590,7 +604,7 @@ sub generate_metadata {
         $md,
         {
             entityID => $self->issuer,
-            ID       => $self->id,
+            ID       => $self->_id,
         },
         $x->SPSSODescriptor(
             $md,

t/02-create-sp.t

@@ -490,4 +490,18 @@ use URN::OASIS::SAML2 qw(:bindings :urn);
     is($child[1]->getAttribute('isRequired'), '1', ".. and requiredness");
 }
 
+{
+    my $sp = net_saml2_sp();
+
+    my @warns;
+    local $SIG{__WARN__} = sub { push(@warns, shift); };
+    my $id = $sp->id;
+    is($id, $sp->issuer, "id is still the issuer");
+    cmp_deeply(
+        \@warns,
+        ["NET::SAML2 deprecation warning: id() has been renamed to issuer()\n"],
+        "We have our deprecation warning"
+    );
+}
+
 done_testing;