add CARP_TRACE

[debbugs.git] / Debbugs / Package.pm

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;