add CARP_TRACE

diff --git a/Debbugs/Bug.pm b/Debbugs/Bug.pm
index 539e7589a4035160e3c6bd655c5bba0e57c0c28a..4a6bf6614e27ca557e65fa1d439c6b447defeca6 100644 (file)
--- 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 529056391886d862fd3211de4ec2c5d745c96009..a18cd8343de6aadadf70abe939c63c8e5015e8e1 100644 (file)
--- 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 06d711862ac6bbaa05e5b2c1d02896541696008f..180493ff525859feb79de1a75f681efb751afee5 100644 (file)
--- 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;