use BUILD to handle correspondent argument; add CARP_TRACE

[debbugs.git] / Debbugs / Correspondent.pm

diff --git a/Debbugs/Correspondent.pm b/Debbugs/Correspondent.pm
index bb075047d1022662ece4f909a864ec0066c4ef72..0044347955cd3c220ea0b258e7d12e40017e46c3 100644 (file)
--- a/Debbugs/Correspondent.pm
+++ b/Debbugs/Correspondent.pm
@@ -80,6 +80,14 @@ sub submitter_url {
     return $config{web_domain}.'/submitter:'.$self->email;
 }
 
+sub CARP_TRACE {
+    my $self = shift;
+    return 'Debbugs::Correspondent={name='.$self->name.'}';
+}
+
+
+__PACKAGE__->meta->make_immutable;
+
 no Mouse;
 1;