From d28bac7032a0d95fffbba01ad7eaa6a85fd7be16 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 1 Mar 2008 09:37:45 +0000 Subject: aggiunto supporto date (data creazione deve essere scritta nel documento) git-svn-id: svn://luxion/repos/WebCoso/trunk@330 fcb26f47-9200-0410-b104-b98ab5b095f3 --- lib/File/Cache/Parsed.pm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lib/File') diff --git a/lib/File/Cache/Parsed.pm b/lib/File/Cache/Parsed.pm index bc4036d..c67b16b 100644 --- a/lib/File/Cache/Parsed.pm +++ b/lib/File/Cache/Parsed.pm @@ -93,6 +93,15 @@ sub get { } } +sub stat { + my ($self,$filename)=@_; + + if ($self->{follow}) { + $filename=abs_path($filename); + } + return file($filename)->stat; +} + sub put { my ($self,$filename,$contents)=@_; -- cgit v1.2.3