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