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
|
package VerifySchema;
use strict;
use warnings;
use MRO::Compat;
use mro 'c3';
use parent 'DBIx::Class::Schema';
# ensure that we can see both errors for a single check
sub result_verifiers {
(sub {
my ($s, $result, $set) = @_;
die "Derp: $set" if $set->isa('Herp');
}, sub {
my ($s, $result, $set) = @_;
die "Herp: $set" if $set->isa('Herp');
}, shift->next::method)
}
__PACKAGE__->load_components(qw(
Helper::Schema::Verifier
Helper::Schema::Verifier::Parent
));
# so ::Verifier::load_classes gets tested too
__PACKAGE__->load_classes({
ParentSchema => [qw/ Result::Foo Result::Bar /],
});
__PACKAGE__->load_namespaces;
'zomg';
|
