From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 25 Mar 2009 20:23:59 +0000 (+0000)
Subject: Merge up r9572 and r9577 from 5.70
X-Git-Tag: 5.80001~50
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=e995c634139297d4f211ee2608df03f510a19dc4

Merge up r9572 and r9577 from 5.70
---

diff --git a/Changes b/Changes
index 9b6169d..7db0ab6 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+        - Add the Catalyst::Dispatcher->dispatch_type method (ash)
         - Throw an exception rather than loading an app if an action
           tries to chain to itself (t0m)
           - Tests for this
diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index 6e182fa..39eb289 100644
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -656,7 +656,14 @@ sub _load_dispatch_types {
     return @loaded;
 }
 
-# Dont document this until someone else is happy with beaviour. Ash 2009/03/16
+=head2 $self->dispatch_type( $type )
+
+Get the DispatchType object of the relevant type, i.e. passing C<$type> of
+C<Chained> would return a L<Catalyst::DispatchType::Chained> object (assuming
+of course it's being used.) 
+
+=cut
+
 sub dispatch_type {
     my ($self, $name) = @_;