caller.t   [plain text]


#!/usr/bin/perl -Tw

# Make sure caller() is undisturbed.

use strict;
use warnings;

use Test::Exception;
use Test::More tests => 2;

eval { die caller() . "\n" };
is( $@, "main\n" );

throws_ok { die caller() . "\n" }  qr/^main$/;