X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b0405a0ddf5554d4f321dbda0c7b8a3ed4c16002..53593baa211863fbf66540cf1bcc36c8fb37257f:/SL/Webdav/Object.pm?ds=inline

diff --git a/SL/Webdav/Object.pm b/SL/Webdav/Object.pm
index 8779d0961..e4ece7969 100644
--- 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]