|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/perl-5.8.8/lib/ |
Upload File : |
#!./perl
BEGIN {
if ($^O eq 'MacOS') {
chdir '::' if -d '::pod' && -d '::t';
@INC = ':lib:';
} else {
chdir '..' if -d '../pod' && -d '../t';
@INC = 'lib';
}
}
use Test::More tests => 2;
BEGIN { use_ok('diagnostics') }
require base;
eval {
'base'->import(qw(I::do::not::exist));
};
like( $@, qr/^Base class package "I::do::not::exist" is empty/);