From: Charles McGarvey 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 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;