Boilerplate

[catagits/Catalyst-Authentication-Credential-HTTP.git] / lib / Catalyst / Plugin / Authentication / Credential / HTTP.pm

diff --git a/lib/Catalyst/Plugin/Authentication/Credential/HTTP.pm b/lib/Catalyst/Plugin/Authentication/Credential/HTTP.pm
index 75fee7a..24c78e4 100644 (file)
--- a/lib/Catalyst/Plugin/Authentication/Credential/HTTP.pm
+++ b/lib/Catalyst/Plugin/Authentication/Credential/HTTP.pm
@@ -8,6 +8,7 @@ use warnings;
 
 use String::Escape ();
 use URI::Escape    ();
+use Catalyst       ();
 
 our $VERSION = "0.01";
 
@@ -33,7 +34,7 @@ sub authorization_required {
 
     $c->authorization_required_response( %opts );
 
-    $c->detach( sub { } );
+    die $Catalyst::DETACH;
 }
 
 sub authorization_required_response {
@@ -130,6 +131,17 @@ header to demand authentication data from the user agent.
 
 =back
 
-=cut
+=head1 AUTHORS
+
+Yuval Kogman, C<nothingmuch@woobling.org>
+
+Jess Robinson
 
+=head1 COPYRIGHT & LICENSE
+
+        Copyright (c) 2005 the aforementioned authors. All rights
+        reserved. This program is free software; you can redistribute
+        it and/or modify it under the same terms as Perl itself.
+
+=cut