From 29ffae11e29d83a96d53c5825e876914e4ac7aa7 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 13:31:49 -0700
Subject: [PATCH] add CARP_TRACE

---
 Debbugs/Bug.pm        | 6 ++++++
 Debbugs/Collection.pm | 8 +++++++-
 Debbugs/Package.pm    | 7 +++++++
 3 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 539e758..4a6bf66 100644
--- a/Debbugs/Bug.pm
+++ b/Debbugs/Bug.pm
@@ -673,6 +673,12 @@ sub related_packages_and_versions {
     return @return;
 }
 
+sub CARP_TRACE {
+    my $self = shift;
+    return 'Debbugs::Bug={bug='.$self->bug.'}';
+}
+
+__PACKAGE__->meta->make_immutable;
 
 no Mouse;
 1;
diff --git a/Debbugs/Collection.pm b/Debbugs/Collection.pm
index 5290563..a18cd83 100644
--- a/Debbugs/Collection.pm
+++ b/Debbugs/Collection.pm
@@ -189,8 +189,14 @@ sub _build_member_hash {
     return $hash;
 }
 
-__PACKAGE__->meta->make_immutable;
+sub CARP_TRACE {
+    my $self = shift;
+    return 'Debbugs::Collection={n_members='.$self->count().'}';
+}
 
+
+__PACKAGE__->meta->make_immutable;
+no Mouse;
 1;
 
 __END__
diff --git a/Debbugs/Package.pm b/Debbugs/Package.pm
index 06d7118..180493f 100644
--- a/Debbugs/Package.pm
+++ b/Debbugs/Package.pm
@@ -578,6 +578,13 @@ sub _build_package_collection {
     return Debbugs::Collection::Package->new($self->has_schema?(schema => $self->schema):());
 }
 
+sub CARP_TRACE {
+    my $self = shift;
+    return 'Debbugs::Package={package='.$self->qualified_name.'}';
+}
+
+__PACKAGE__->meta->make_immutable;
+no Mouse;
 
 1;
 
-- 
2.39.2