Permalink
Browse files

added pod for interfaces not yet implemented

  • Loading branch information...
MichaelDaum committed Aug 22, 2012
1 parent 2e79576 commit 4628f5f808b5220966967fb688b5343fc05d1e44
View
@@ -9,7 +9,7 @@ configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 0.92'
license: perl
license: gpl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
@@ -269,25 +269,51 @@ sub request {
return $result;
}
=item responseContent
returns the full content of a response
=cut
sub responseContent {
my $this = shift;
return $this->{_cacheEntry}{content} if $this->{_cacheEntry};
return $this->{_res}->content;
}
=item responseCode
returns the HTTP status code of the repsonse
=cut
sub responseCode {
my $this = shift;
return $this->{_cacheEntry}{code} if $this->{_cacheEntry};
return $this->{_res}->code;
}
=item responseStatusLine
returns the "code message" of the response. (See HTTP::Status)
=cut
sub responseStatusLine {
my $this = shift;
return $this->{_cacheEntry}{status_line} if $this->{_cacheEntry};
return $this->{_res}->status_line;
}
=item responseBase -> $uri
returns the base uri for this response
=cut
sub responseBase {
my $this = shift;
return $this->{_cacheEntry}{base} if $this->{_cacheEntry};
@@ -501,8 +501,28 @@ TODO: This is not yet implemented.
sub copy { throw WebService::Cmis::NotImplementedException; }
=item getPropertiesOfLatestVersion
TODO: This is not yet implemented.
=cut
sub getPropertiesOfLatestVersion { throw WebService::Cmis::NotImplementedException; }
=item setContentStream
TODO: This is not yet implemented.
=cut
sub setContentStream { throw WebService::Cmis::NotImplementedException; }
=item deleteContentStream
TODO: This is not yet implemented.
=cut
sub deleteContentStream { throw WebService::Cmis::NotImplementedException; }
=back
@@ -609,10 +609,36 @@ sub updateSummary {
return $this;
}
=item applyACL()
TODO: This is not yet implemented.
=cut
sub applyACL { throw WebService::Cmis::NotImplementedException; }
=item applyPolicy()
TODO: This is not yet implemented.
=cut
sub applyPolicy { throw WebService::Cmis::NotImplementedException; }
=item createRelationship()
TODO: This is not yet implemented.
=cut
sub createRelationship { throw WebService::Cmis::NotImplementedException; }
=item removePolicy()
TODO: This is not yet implemented.
=cut
sub removePolicy { throw WebService::Cmis::NotImplementedException; }
=back
@@ -94,12 +94,15 @@ sub unparse {
return $formatString;
}
# Get timezone offset from GMT in seconds
# Code taken from CPAN module 'Time' - "David Muir Sharnoff disclaims
# any copyright and puts his contribution to this module in the public
# domain."
# Note that unit tests rely on this function being here.
sub getTZSTRING {
=item getTZString
Get timezone offset of the local time from GMT in seconds.
Code taken from CPAN module 'Time' - "David Muir Sharnoff disclaims any
copyright and puts his contribution to this module in the public domain.
=cut
sub getTZString {
# time zone designator (+hh:mm or -hh:mm)
unless (defined $TZSTRING) {
@@ -25,9 +25,36 @@ our @ISA = ('WebService::Cmis::Object');
=cut
=item getSource
TODO: This is not yet implemented.
=cut
sub getSource { throw WebService::Cmis::NotImplementedException; }
=item getSourceId
TODO: This is not yet implemented.
=cut
sub getSourceId { throw WebService::Cmis::NotImplementedException; }
=item getTarget
TODO: This is not yet implemented.
=cut
sub getTarget { throw WebService::Cmis::NotImplementedException; }
=item getTargetId
TODO: This is not yet implemented.
=cut
sub getTargetId { throw WebService::Cmis::NotImplementedException; }
=back
@@ -1160,7 +1160,20 @@ sub createFolder {
);
}
=item createRelationship
TODO: This is not yet implemented.
=cut
sub createRelationship { throw WebService::Cmis::NotImplementedException; }
=item createPolicy
TODO: This is not yet implemented.
=cut
sub createPolicy { throw WebService::Cmis::NotImplementedException; }
=back

0 comments on commit 4628f5f

Please sign in to comment.