Clarify carp level use

[gitmo/Package-DeprecationManager.git] / lib / Package / DeprecationManager.pm

diff --git a/lib/Package/DeprecationManager.pm b/lib/Package/DeprecationManager.pm
index 423c104..a0fa4a0 100644 (file)
--- a/lib/Package/DeprecationManager.pm
+++ b/lib/Package/DeprecationManager.pm
@@ -109,6 +109,8 @@ sub _build_warn {
 
         $warned{$package}{ $args{feature} }{$msg} = 1;
 
+        # We skip at least two levels. One for this anon sub, and one for the
+        # sub calling it.
         local $Carp::CarpLevel = $Carp::CarpLevel + $skipped;
 
         Carp::cluck($msg);