From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2018 20:31:49 +0000 (-0700)
Subject: add CARP_TRACE
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=29ffae11e29d83a96d53c5825e876914e4ac7aa7;p=debbugs.git

add CARP_TRACE
---

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;