4 use Time::HiRes qw/gettimeofday/;
7 use DBICTest; # do not remove even though it is not used
11 for (1 .. $src_count) {
14 package DBICTest::NS::Stress::Schema::Result::T$_;
15 use base qw/DBIx::Class::Core/;
16 __PACKAGE__->table($_);
17 __PACKAGE__->add_columns (
18 id => { data_type => 'integer', is_auto_increment => 1 },
19 data => { data_type => 'varchar', size => 255 },
21 __PACKAGE__->set_primary_key('id');
22 __PACKAGE__->add_unique_constraint(['data']);
28 package DBICTest::NS::Stress::Schema;
30 use base qw/DBIx::Class::Schema/;
33 return $_[1] eq ( __PACKAGE__ . '::Result' )
34 ? ( map { __PACKAGE__ . "::Result::T$_" } 1 .. $::src_count )
40 is (DBICTest::NS::Stress::Schema->sources, 0, 'Start with no sources');
43 note gettimeofday . ":\tload_namespaces start";
44 DBICTest::NS::Stress::Schema->load_namespaces;
45 note gettimeofday . ":\tload_namespaces finished";
47 is (DBICTest::NS::Stress::Schema->sources, $src_count, 'All sources attached');