diff options
| author | dakkar <dakkar@luxion> | 2008-03-01 09:37:45 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2008-03-01 09:37:45 +0000 |
| commit | d28bac7032a0d95fffbba01ad7eaa6a85fd7be16 (patch) | |
| tree | 7187deed6d9143a8fc0168eaed3edc57ebe60917 /lib/File/Cache/Parsed.pm | |
| parent | refactoring: cleaner (diff) | |
| download | WebCoso-d28bac7032a0d95fffbba01ad7eaa6a85fd7be16.tar.gz WebCoso-d28bac7032a0d95fffbba01ad7eaa6a85fd7be16.tar.bz2 WebCoso-d28bac7032a0d95fffbba01ad7eaa6a85fd7be16.zip | |
aggiunto supporto date (data creazione deve essere scritta nel documento)
git-svn-id: svn://luxion/repos/WebCoso/trunk@330 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'lib/File/Cache/Parsed.pm')
| -rw-r--r-- | lib/File/Cache/Parsed.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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)=@_; |