view lib/IMPL/Web/Application/HttpResponseResource.pm @ 417:3ed0c58e9da3 ref20150831

working on di container, tests
author cin
date Mon, 02 Nov 2015 01:56:53 +0300
parents c6e90e02dd17
children
line wrap: on
line source

package IMPL::Web::Application::HttpResponseResource;
use strict;

use IMPL::Const qw(:prop);
use IMPL::declare {
	require => {
		HttpResponse => 'IMPL::Web::HttpResponse'
	},
	base => [
		'IMPL::Object' => undef,
		'IMPL::Web::Application::ResourceInterface' => undef
	],
	props => [
		response => PROP_RW
	]
};

sub CTOR {
	my ($this,%args) = @_;
	
	$this->response($args{response} || HttpResponse->NoContent);
}

sub FetchChildResource {
	return shift;
}

sub InvokeHttpVerb {
	return shift->response;
}

1;