1#!/usr/bin/perl -Tw
2
3# Make sure caller() is undisturbed.
4
5use strict;
6use warnings;
7
8use Test::Exception;
9use Test::More tests => 2;
10
11eval { die caller() . "\n" };
12is( $@, "main\n" );
13
14throws_ok { die caller() . "\n" }  qr/^main$/;
15