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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!perl -w
use strict;
use Test::More tests => 8;
use Test::Exception;
BEGIN{
use_ok 'Data::Util::Error';
}
{
package Foo;
use Data::Util::Error \&fail;
use Data::Util qw(:validate);
sub f{
array_ref(@_);
}
sub fail{ 'FooError' }
}
{
package Bar;
use Data::Util::Error \&fail;
use Data::Util qw(:validate);
sub f{
array_ref(@_);
}
sub fail{ 'BarError' }
}
{
package Baz;
use base qw(Foo Bar);
use Data::Util qw(:validate);
sub g{
array_ref(@_);
}
}
is( Data::Util::Error->fail_handler('Foo'), \&Foo::fail );
is( Data::Util::Error->fail_handler('Bar'), \&Bar::fail );
is( Data::Util::Error->fail_handler('Baz'), \&Foo::fail );
throws_ok{
Foo::f({});
} qr/FooError/;
throws_ok{
Bar::f({});
} qr/BarError/;
throws_ok{
Baz::g({});
} qr/FooError/;
throws_ok{
Data::Util::Error->fail_handler(Foo => 'throw');
} qr/Validation failed/;
|
