"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/HTTP/DAV/Lock.pm" between
HTTP-DAV-0.48.tar.gz and HTTP-DAV-0.49.tar.gz

About: HTTP-DAV (PerlDAV) is a Perl library for modifying content on Web servers using the WebDAV protocol.

Lock.pm  (HTTP-DAV-0.48):Lock.pm  (HTTP-DAV-0.49)
skipping to change at line 37 skipping to change at line 37
return $self; return $self;
} }
sub _init { sub _init {
my ($self,@p) = @_; my ($self,@p) = @_;
my($owned) = HTTP::DAV::Utils::rearrange(['OWNED'],@p); my($owned) = HTTP::DAV::Utils::rearrange(['OWNED'],@p);
$self->{_owned} = $owned || 0; $self->{_owned} = $owned || 0;
} }
########################################################################### ###########################################################################
# ACCESSOR METHODS
=head1 ACCESSOR METHODS
=over
=cut
# GET # GET
sub get_owner { $_[0]->{_owner}; } sub get_owner { $_[0]->{_owner}; }
sub get_token { $_[0]->{_token}; } sub get_token { $_[0]->{_token}; }
sub get_depth { $_[0]->{_depth}; } sub get_depth { $_[0]->{_depth}; }
sub get_timeout { $_[0]->{_timeout}; } sub get_timeout { $_[0]->{_timeout}; }
sub get_locktoken { $_[0]->{_locktokens}[0]; } sub get_locktoken { $_[0]->{_locktokens}[0]; }
sub get_locktokens{ $_[0]->{_locktokens}; } sub get_locktokens{ $_[0]->{_locktokens}; }
sub set_scope { $_[0]->{_scope} = $_[1]; } sub set_scope { $_[0]->{_scope} = $_[1]; }
 End of changes. 1 change blocks. 
1 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)