X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FChained.pm;h=4c02130cd040caee6567f6b123797fa337e435a6;hb=9868e0a0023cc8b598d60f150ea367e0056a65f3;hp=5fa5f2250c0b12d18b34e08c3c6f4769ddffb2c3;hpb=760d121ecfcc1ad7c28342a6912a472fe30e5fe0;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Chained.pm b/t/lib/TestApp/Controller/Action/Chained.pm index 5fa5f22..4c02130 100644 --- a/t/lib/TestApp/Controller/Action/Chained.pm +++ b/t/lib/TestApp/Controller/Action/Chained.pm @@ -143,6 +143,24 @@ sub chain_dt_a :Chained :PathPart('chained/chain_dt') :CaptureArgs(1) { sub chain_dt_b :Chained('chain_dt_a') :PathPart('end') :Args(1) { } # +# Error in the middle of a chain +# +sub chain_error_a :Chained :PathPart('chained/chain_error') :CaptureArgs(1) { + $_[1]->error( 'break in the middle of a chain' ); +} + +sub chain_error_b :Chained('chain_error_a') :PathPart('end') :Args(1) {} + +# +# Die in the middle of a chain +# +sub chain_die_a :Chained :PathPart('chained/chain_die') :CaptureArgs(1) { + die( "die in the middle of a chain\n" ); +} + +sub chain_die_b :Chained('chain_die_a') :PathPart('end') :Args(1) {} + +# # Target for former forward and chain tests. # sub fw_dt_target :Private { }