package Catalyst::Plugin::http_status;

use strict;
use warnings;
use HTTP::Status;

our $VERSION = '0.01';

{
	package Catalyst::Response;
	use HTTP::Status;
}


=head1 NAME

Standard HTTP Status messages

=head1 SYNOPSIS

   use Catalyst qw/	http_status /;

=head1 DESCRIPTION

This plugin makes it easy to set default responses for standard HTTP response codes
such as NOT FOUND, FORBIDDEN, etc.  It loads a bunch of constants into the $c namespace
area.  So you can do things like $c->response->RC_NOT_FOUND, etc.

=head1 AUTHOR

john napiorkowski

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;