Carrot

 view release on metacpan or  search on metacpan

lib/Carrot/Personality/Structured/Internet/Protocol/HTTP/Request./unit_tests/proof_of_concept.pl  view on Meta::CPAN

package main
# /type library
# /capability "Proof of concept for ::HTTP::Request"
{
	use strict;
	use warnings 'FATAL' => 'all';

	my $expressiveness = Carrot::individuality;
	$expressiveness->package_resolver->provide(
		my $request_class = '::Personality::Structured::Internet::Protocol::HTTP::Request');

	my $request = $request_class->indirect_constructor;
	$request->header_lines->header_host->assign_value('localhost');
	$request->line->method->assign_value('GET');

	require Data::Dumper;
	print(STDERR Data::Dumper::Dumper($request));

	return(PERL_FILE_LOADED);
}

lib/Carrot/Personality/Structured/Internet/Protocol/HTTP/Request.pm  view on Meta::CPAN

package Carrot::Personality::Structured::Internet::Protocol::HTTP::Request
# /type class
# /project_entry [=parent_pkg=]
# //parent_classes
#	[=project_pkg=]::_Corporate
# //attribute_construction
#	line        [=this_pkg=]::Line +method
#	+
#       form_data   ::Personality::Valued::Internet::Protocol::HTTP::Form_Data +ondemand
# /capability ""
{

lib/Carrot/Personality/Structured/Internet/Protocol/HTTP/Request/Line.pm  view on Meta::CPAN

package Carrot::Personality::Structured::Internet::Protocol::HTTP::Request::Line
# /type class
# /attribute_type ::Many_Declared::Ordered
# /class_anchor   ::Personality::Valued::Internet::Protocol::HTTP
# //attribute_construction
#	method    ::Request_Method +method
#	uri       ::URI +method
#	protocol  ::Protocol_Version +method
# /capability ""
{
	use strict;

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload.pl  view on Meta::CPAN

#Automatically created on Mon Aug  4 20:01:11 2014
package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub set_get;
sub is_get;
sub set_post;
sub is_post;
sub set_put;
sub is_put;
sub set_head;
sub is_head;

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/is_get.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub is_get
{
        return(${$_[0]} eq 'GET');
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/is_head.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub is_head
{
        return(${$_[0]} eq 'HEAD');
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/is_post.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub is_post
{
        return(${$_[0]} eq 'POST');
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/is_put.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub is_put
{
        return(${$_[0]} eq 'PUT');
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/set_get.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub set_get
{
        ${$_[0]} = 'GET';
        return;
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/set_head.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub set_head
{
        ${$_[0]} = 'HEAD';
        return;
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/set_post.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub set_post
{
        ${$_[0]} = 'POST';
        return;
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./autoload/set_put.pl  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method;
use strict;
use warnings;
sub set_put
{
        ${$_[0]} = 'PUT';
        return;
}
return(1);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method./unit_tests/proof_of_concept.pl  view on Meta::CPAN

package main
# /type library
# /capability ""
{
	use strict;
	use warnings 'FATAL' => 'all';

	my $expressiveness = Carrot::individuality;
	$expressiveness->package_resolver->provide(
		my $request_method_class = '::Personality::Valued::Internet::Protocol::HTTP::Request_Method');

	my $request_method = $request_method_class->indirect_constructor;
	$request_method->set_post;

	require Data::Dumper;
	print(STDERR Data::Dumper::Dumper($request_method));

	return(PERL_FILE_LOADED);
}

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method.pm  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method
# /type class
# /attribute_type ::One_Anonymous::Scalar::Access
# /capability ""
{
	use strict;
	use warnings 'FATAL' => 'all';

# =--------------------------------------------------------------------------= #

	return(PERL_FILE_LOADED);

lib/Carrot/Personality/Valued/Internet/Protocol/HTTP/Request_Method/Constants.pm  view on Meta::CPAN

package Carrot::Personality::Valued::Internet::Protocol::HTTP::Request_Method::Constants
# /type class
# /attribute_type ::One_Anonymous::Scalar
# /capability ""
{
	use strict;
	use warnings 'FATAL' => 'all';


# =--------------------------------------------------------------------------= #