[core/system.pm] add a sleep() function that does and returns fractio…

…nal seconds
rakudo · Feb 10, 2010 · df1e34e · df1e34e
1 parent 54ca0fa
commit df1e34e
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/system.pm b/src/core/system.pm
@@ -16,3 +16,10 @@ sub run($commandline) {
         %r = box status
     }
 }
+
+sub sleep($seconds) {         # fractional seconds also allowed
+    my $time1 = time;
+    pir::sleep__vN($seconds);
+    my $time2 = time;
+    return $time2 - $time1;
+}