Debian lenny version packages

[pkg-perl] / deb-src / libtest-exception-perl / libtest-exception-perl-0.27 / t / caller.t

#!/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$/;