view lib/IMPL/Web/NotAllowedException.pm @ 415:3d24b10dd0d5 ref20150831

working on IMPL::Config::Container
author cin
date Tue, 20 Oct 2015 07:32:55 +0300
parents c6e90e02dd17
children
line wrap: on
line source

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

use IMPL::Const qw(:prop);
use IMPL::declare {
    base => [
        'IMPL::Web::Exception' => '@_'
    ]
};

use IMPL::Resources::Strings {
    message => "The requested method isn't allowed"
};

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

sub status {
    "405 Method Not Allowed"
}

1;

__END__