[core/IO] created/modified/accessed/changed methods

Not spec yet, but the spec sounded very non-committal, and I need those methods now. :)
rakudo · Sep 15, 2010 · 5507cf6 · 5507cf6
1 parent 15c3f75
commit 5507cf6
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -170,6 +170,11 @@ class IO is Cool {
     multi method z() {
         $.e && $.s == 0;
     }
+
+    multi method created() { ::Instant.from-posix($.stat.createtime) }
+    multi method modified() { ::Instant.from-posix($.stat.modifytime) }
+    multi method accessed() { ::Instant.from-posix($.stat.accesstime) }
+    multi method changed() { ::Instant.from-posix($.stat.changetime) }
 }
 
 multi sub get(IO $filehandle = $*ARGFILES) { $filehandle.get };