Print debugging statement: Difference between revisions

=={{header|Perl}}==

<code>Carp</code> is a core module, always available.

<lang perl>use Carp;

$str = 'Resistance'; carp "'$str' is futile."; print "\n";

doodle($str); print "\n";

fiddle(7);

sub doodle { my ($str) = @_; carp "'$str' is still futile." }

sub fiddle { faddle(2*shift) }

sub faddle { fuddle(3*shift) }

sub fuddle { ( carp("'$_[0]', interesting number.") ); }</lang>

{{out}}

<pre>'Resistance' is futile. at printf_debug.pl line 11.

'Resistance' is still futile. at printf_debug.pl line 17.

main::doodle("Resistance") called at printf_debug.pl line 13

'42', interesting number. at printf_debug.pl line 21.

main::fuddle(42) called at printf_debug.pl line 20

main::faddle(14) called at printf_debug.pl line 19

main::fiddle(7) called at printf_debug.pl line 15</pre>