syohex · November 5, 2012 14:29
diff --git a/carp_level_sample.pl b/carp_level_sample.pl
 #!perl
 use strict;
 use warnings;

 package Fuga;

 sub bar {
    Carp::croak("I'm bar");
 }

 package Hoge;

 use Carp ();

 sub foo {
    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
    Fuga::bar();
 }

 package main;

 Hoge::foo();
diff --git a/output.log b/output.log
 syohei@ibanez:% perl level.pl
 I'm bar at level.pl line 22.
	#!perl
	use strict;
	use warnings;

	package Fuga;

	sub bar {
	Carp::croak("I'm bar");
	}

	package Hoge;

	use Carp ();

	sub foo {
	local $Carp::CarpLevel = $Carp::CarpLevel + 1;
	Fuga::bar();
	}

	package main;

	Hoge::foo();