Merge branch 'b-3.6.1' into mebil

[mfinanz.git] / SL / Webdav / Object.pm

diff --git a/SL/Webdav/Object.pm b/SL/Webdav/Object.pm
index 8779d09612de756d68fb7efe4806680df586f96e..e4ece7969b8f249086c6525095ebc6f582f44cba 100644 (file)
--- a/SL/Webdav/Object.pm
+++ b/SL/Webdav/Object.pm
@@ -42,6 +42,10 @@ sub full_filedescriptor {
   File::Spec->catfile($self->webdav->webdav_path, $self->filename);
 }
 
+sub size {
+  ($_[0]->stat)[7];
+}
+
 sub atime {
   DateTime->from_epoch(epoch => ($_[0]->stat)[8]);
 }
@@ -132,6 +136,10 @@ Returns the version string.
 
 Returns the extension.
 
+=item C<size>
+
+wrapped stat[7]
+
 =item C<atime>
 
 L<DateTime> wrapped stat[8]