00_load.t

来自「source of perl for linux application,」· T 代码 · 共 15 行

use Test::More 'no_plan';
use strict;

BEGIN { 
    chdir 't' if -d 't';
    use File::Spec;
    use lib File::Spec->catdir( qw[.. lib] );
}

my $Class = 'Term::UI';

use_ok( $Class );

diag "Testing $Class " . $Class->VERSION unless $ENV{PERL_CORE};