Lines Matching refs:Local
12 package Local::Error::Simple;
26 package Local::Error::Test;
27 use base qw(Local::Error::Simple);
29 package Local::Error::Overload;
30 use base qw(Local::Error::Simple);
33 package Local::Error::NoFallback;
34 use base qw(Local::Error::Simple);
40 Local::Error::Simple
41 Local::Error::Test
42 Local::Error::Overload
43 Local::Error::NoFallback
80 test_diag("died: Local::Error::Overload (overloaded)");
81 lives_ok { Local::Error::Overload->throw };
95 test_out("ok 1 - threw Local::Error::Simple");
96 throws_ok { Local::Error::Simple->throw } "Local::Error::Simple";
99 test_out("not ok 1 - threw Local::Error::Simple");
101 test_diag("expecting: Local::Error::Simple");
103 throws_ok { no_exception() } "Local::Error::Simple";
106 test_out("ok 1 - threw Local::Error::Simple");
107 throws_ok { Local::Error::Test->throw } "Local::Error::Simple";
110 test_out("not ok 1 - threw Local::Error::Test");
112 test_diag("expecting: Local::Error::Test");
113 test_diag("found: " . Local::Error::Simple->instance);
114 throws_ok { error("simple") } "Local::Error::Test";
117 test_out("not ok 1 - threw Local::Error::Test");
119 test_diag("expecting: Local::Error::Test");
120 test_diag("found: Local::Error::Overload (overloaded)");
121 throws_ok { error("overload") } "Local::Error::Test";
124 test_out("not ok 1 - threw Local::Error::Overload (overloaded)");
126 test_diag("expecting: Local::Error::Overload (overloaded)");
131 my $e = Local::Error::Test->instance("hello");
146 test_diag("died: Local::Error::NoFallback (no fallback)");
150 test_out("not ok 1 - threw Local::Error::Test");
152 test_diag("expecting: Local::Error::Test");
153 test_diag("found: Local::Error::NoFallback (no fallback)");
154 throws_ok { error("nofallback") } "Local::Error::Test";