use
strict;
use
warnings;
use
Test::More;
if
(1 == 0) {
# the line below artificially populates DBIx::DataModel::Schema namespace
# at compile time, even if never executed. The previous implementation
# of Utils::define_class got tricked by this case.
}
require
DBIx::DataModel;
DBIx::DataModel->Schema(
'HR'
)
->Table(
Employee
=>
T_Employee
=>
qw/emp_id/
)
->Table(
Department
=>
T_Department
=>
qw/dpt_id/
)
->Table(
Activity
=>
T_Activity
=>
qw/act_id/
);
ok(
scalar
(
keys
%{HR::}),
"class HR is defined"
);
done_testing;