view Lib/IMPL/Web/NotAllowedException.pm @ 239:23daf2fae33a

*security subsytem bugfixes *HttpResponse: cookies which values are set to undefined will be deleted from browser
author sergey
date Tue, 16 Oct 2012 20:14:11 +0400
parents 6d8092d8ce1b
children 673581380e79
line wrap: on
line source

package IMPL::Web::NotAllowedException;
use strict;

use IMPL::Const qw(:prop);
use IMPL::declare {
    base => [
        'IMPL::Web::Exception' => sub {
            my %args = @_;
            $args{Message};
        }
    ]
};

sub CTOR {
    my $this = shift;
    my %args = @_;
    
    $this->headers({
       allow => $args{allow} 
    });
}

sub status {
    "405 Method Not Allowed"
}

1;

__END__