Add naive $*SPEC.extension for basenames

rakudo · Oct 5, 2014 · 205b588 · 205b588
1 parent 2662e01
commit 205b588
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -32,6 +32,14 @@ my class IO::Spec::Unix is IO::Spec {
           !! path.substr( nqp::box_i($index + 1,Int) );
     }
 
+    method extension(\path) {
+        my str $str = nqp::unbox_s(path);
+        my int $index = nqp::rindex($str,'.');
+        nqp::p6bool($index == -1)
+          ?? ''
+          !! path.substr( nqp::box_i($index + 1,Int) );
+    }
+
     method tmpdir {
         self.canonpath: first( { .defined && .IO.d && .IO.w },
                 %*ENV<TMPDIR>,