Document the diagnostics

[perl/modules/indirect.git] / lib / indirect.pm

diff --git a/lib/indirect.pm b/lib/indirect.pm
index f4cc7dcdd7bb6cc7ca97f3cabb9a4d0f4bfd2521..f793a831a8d549306976c653f032bc70c5d4a36b 100644 (file)
--- a/lib/indirect.pm
+++ b/lib/indirect.pm
@@ -143,6 +143,16 @@ sub msg {
 
 True iff the module could have been built with thread-safety features enabled.
 
+=head1 DIAGNOSTICS
+
+=head2 C<Indirect call of method "%s" on object "%s" at %s line %d.>
+
+The default warning/exception message thrown when an indirect call on an object is found.
+
+=head2 C<Indirect call of method "%s" on a block at %s line %d.>
+
+The default warning/exception message thrown when an indirect call on a block is found.
+
 =head1 CAVEATS
 
 The implementation was tweaked to work around several limitations of vanilla C<perl> pragmas : it's thread safe, and doesn't suffer from a C<perl 5.8.x-5.10.0> bug that causes all pragmas to propagate into C<require>d scopes.