Re^3: Should I use carp/croak or warn/die (@CARP

in reply to Re^2: Should I use carp/croak or warn/die (@CARP_NOT)
in thread Should I use carp/croak or warn/die

Though I'm not sure if @CARP_NOT could be used for this ...

How could it?

I mean @CARP_NOT is a package variable that is (or so I suppose) evaluated at compile-time.

How could that be used to implement the run-time feature of reporting the the first caller of a different package?

I don't really know to be honest, you could be right, but my working hypothesis here is that you're simply blah-blahing here.

So please enlighten us...

Comment on Re^3: Should I use carp/croak or warn/die (@CARP_NOT)

Replies are listed 'Best First'.
Re^4: Should I use carp/croak or warn/die (@CARP_NOT) by LanX (Saint) on May 30, 2018 at 22:29 UTC
I wouldn't ask if I knew. > evaluated at compile-time. nope that's obvious from the docs and from a simple test. > you're simply blah-blahing here. Look who's talking... Anyway carp() seems to already do by default what I wanted. \o/ It doesn't report from the caller function but the caller package. `use strict; use warnings; use Data::Dump qw/pp dd/; TEST::first(); # <- line 6 #push @main::CARP_NOT, qw(TEST); # uncomment to see dynamic behaviour #TEST::first(); package TEST; use Carp; sub first { second(); } sub second { carp "some warning"; }` [download] `some warning at d:/Users/RolfLangsdorf/pm/carp_not.pl line 6.` Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Should I use carp/croak or warn/die (@CARP_NOT)
by LanX (Saint) on May 30, 2018 at 22:29 UTC

> evaluated at compile-time.

nope that's obvious from the docs and from a simple test.

> you're simply blah-blahing here.

Look who's talking...

Anyway carp() seems to already do by default what I wanted. \o/

It doesn't report from the caller function but the caller package.

use strict;
use warnings;
use Data::Dump qw/pp dd/;


TEST::first();                    # <- line 6

#push @main::CARP_NOT, qw(TEST); # uncomment to see dynamic behaviour

#TEST::first();

package TEST;



use Carp;

sub first {
    second();
}

sub second {
    carp "some warning";
}
[download]

some warning at d:/Users/RolfLangsdorf/pm/carp_not.pl line 6.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom