From: Charles McGarvey <ccm@cpan.org>
Date: Wed, 20 Apr 2022 16:23:39 +0000 (-0600)
Subject: Cleanup some commented code
X-Git-Tag: v0.800~21
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=af22194015e0d2182beecda0d9f40e59784ce398;p=chaz%2Fp5-File-KDBX

Cleanup some commented code
---

diff --git a/lib/File/KDBX/Error.pm b/lib/File/KDBX/Error.pm
index 7f44942..d23837a 100644
--- a/lib/File/KDBX/Error.pm
+++ b/lib/File/KDBX/Error.pm
@@ -39,7 +39,7 @@ sub new {
 
     my $error = delete $args{_error};
     my $e = $error;
-    # $e =~ s/ at \H+ line \d+.*//g;
+    $e =~ s/ at \H+ line \d+.*//g;
 
     my $self = bless {
         details     => \%args,
@@ -108,12 +108,37 @@ sub details {
     return $details;
 }
 
+=attr errno
+
+Get the value of C<errno> when the exception was created.
+
+=cut
+
 sub errno { $_[0]->{errno} }
 
+=attr previous
+
+Get the value of C<$@> (i.e. latest exception) at the time the exception was created.
+
+
+=cut
+
 sub previous { $_[0]->{previous} }
 
+=attr trace
+
+Get a stack trace indicating where in the code the exception was created.
+
+=cut
+
 sub trace { $_[0]->{trace} // [] }
 
+=attr type
+
+Get the exception type, if any.
+
+=cut
+
 sub type { $_[0]->details->{type} // '' }
 
 =method to_string
@@ -130,16 +155,10 @@ variable to truthy to stringify the whole error object.
 
 sub _cmp { "$_[0]" cmp "$_[1]" }
 
-sub PROPAGATE {
-    'wat';
-}
-
 sub to_string {
     my $self = shift;
-    # return "uh oh\n";
     my $msg = "$self->{trace}[0]";
-    $msg .= '.' if $msg !~ /[\.\!\?]$/; # Why does this cause infinite recursion on some perls?
-    # $msg .= '.' if $msg !~ /(?:\.|!|\?)$/;
+    $msg .= '.' if $msg !~ /[\.\!\?]$/;
     if ($ENV{DEBUG}) {
         require Data::Dumper;
         local $Data::Dumper::Indent = 1;