1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use strict;
use warnings;
use Test::More;
use Time::HiRes qw/gettimeofday/;
use lib qw(t/lib);
use DBICTest; # do not remove even though it is not used
our $src_count = 100;
for (1 .. $src_count) {
eval <<EOM or die $@;
package DBICTest::NS::Stress::Schema::Result::T$_;
use base qw/DBIx::Class::Core/;
__PACKAGE__->table($_);
__PACKAGE__->add_columns (
id => { data_type => 'integer', is_auto_increment => 1 },
data => { data_type => 'varchar', size => 255 },
);
__PACKAGE__->set_primary_key('id');
__PACKAGE__->add_unique_constraint(['data']);
EOM
}
{
package DBICTest::NS::Stress::Schema;
use base qw/DBIx::Class::Schema/;
sub _findallmod {
return $_[1] eq ( __PACKAGE__ . '::Result' )
? ( map { __PACKAGE__ . "::Result::T$_" } 1 .. $::src_count )
: ()
;
}
}
is (DBICTest::NS::Stress::Schema->sources, 0, 'Start with no sources');
note gettimeofday . ":\tload_namespaces start";
DBICTest::NS::Stress::Schema->load_namespaces;
note gettimeofday . ":\tload_namespaces finished";
is (DBICTest::NS::Stress::Schema->sources, $src_count, 'All sources attached');
done_testing;
|
