=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-313- my $ex = $EXCEPTIONS{$_}; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:314: defined $ex ? ($_ => refaddr($ex)) : (); libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-315- } keys %EXCEPTIONS; ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-345- my $message; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:346: my $id = refaddr($ex); libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-347- if (defined $EXCEPTIONS{$id}) { ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-392- elsif (ref($ex = $_[0])) { libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:393: my $id = refaddr($ex); libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-394- ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-419- $trace =~ s/^(.*\n?)//; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:420: my $where = $1; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-421- my $new_source_trace; ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-428- $out =~ s/(\Q$find\E(?: during global destruction)?(\.?\n?))$trace_re\z// libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:429: and $where = $1; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-430- if (defined $source_trace) { ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-446- unless ref $ex; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:447: my $id = refaddr($ex); libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-448- my $class = $PACKAGES{$id}; ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-479- my $ex = $_[0]; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:480: my $class = $PACKAGES{refaddr($ex)}; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-481- my $newclass = ref $ex; ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-490- my $ex = $_[0]; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:491: my $class = $PACKAGES{refaddr($ex)}; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-492- my $newclass = ref $ex; ############################################## libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-508- my $ex = $_[0]; libdevel-confess-perl-0.009004/lib/Devel/Confess.pm:509: my $id = refaddr($ex); libdevel-confess-perl-0.009004/lib/Devel/Confess.pm-510- my $class = delete $PACKAGES{$id} or return; ############################################## libdevel-confess-perl-0.009004/t/confess.t-12- libdevel-confess-perl-0.009004/t/confess.t:13:sub scrub_refaddr ($) { libdevel-confess-perl-0.009004/t/confess.t-14- my $in = shift;