From: Ben Morrow <ben@morrow.me.uk>
Date: Mon, 19 Jan 2009 23:08:49 +0000 (+0000)
Subject: -M, -C, -A for File::stat.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f0923a377992377651d72d58da1da67b02c358d;p=p5sagit%2Fp5-mst-13.2.git

-M, -C, -A for File::stat.
---

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 9cdb1b3..7489605 100644
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -125,6 +125,10 @@ my %op = (
     u => sub { _suid($_[0]->mode) },
     g => sub { _sgid($_[0]->mode) },
     k => sub { _svtx($_[0]->mode) },
+
+    M => sub { ($^T - $_[0]->mtime) / 86400 },
+    C => sub { ($^T - $_[0]->ctime) / 86400 },
+    A => sub { ($^T - $_[0]->atime) / 86400 },
 );
 
 use overload