view release on metacpan or  search on metacpan

lib/Deplide/RFID/EPCISSubmitter.pm  view on Meta::CPAN

	bless $self, ref($class) || $class;
	return $self;
}

sub submit {
	my $self = shift;
	my $message = shift;

	my $request = HTTP::Request::Common::POST($self->{_url});
	$request->content($message);
	$request->header('content-type' => 'application/xml');
	$request->header('content-length' => length($message));
	$request->authorization_basic($self->{_user}, $self->{_password});
	 
	my $response = $self->{_ua}->request($request);
	return $response;
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!