view Lib/IMPL/Web/ForbiddenException.pm @ 390:de1f875e8875

added reverse matching lookup to TypeKeyedCollection (find closest descendant)
author cin
date Wed, 12 Feb 2014 18:02:03 +0400
parents a8dbddf491dd
children
line wrap: on
line source

package IMPL::Web::ForbiddenException;
use strict;

use IMPL::declare {
	base => {
		'IMPL::Web::Exception' => '@_'
	}
};

use IMPL::Resources::Strings {
    message => "You don't have access to this resource"
};

sub status {
	"403 Forbidden"
}

1;

__END__

=pod

=head1 NAME

C<IMPL::Web::ForbiddenException> - операция не разрешается.

=cut