Deprecate .absolute/.relative, introduce .relpath

rakudo · Jan 5, 2015 · cb3bd5f · cb3bd5f
1 parent be0653f
commit cb3bd5f
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/core/IO/Locally.pm b/src/core/IO/Locally.pm
@@ -11,9 +11,8 @@ my role IO::Locally {
         );
     }
 
-    method absolute(IO::Locally:D:) { $!abspath }
     method chop(IO::Locally:D:)     { $!abspath.chop }
-    method relative(IO::Locally:D: $root?) {
+    method relpath(IO::Locally:D: $root?) {
         REMOVE-ROOT( $root // $*CWD.Str,$!abspath);
     }
 
@@ -76,10 +75,18 @@ my role IO::Locally {
     }
 #?endif
 
-    method directory() {
+    method directory(IO::Locally:D:) {
         DEPRECATED("dirname", |<2014.10 2015.10>);
         self.dirname;
     }
+    method absolute(IO::Locally:D:) {
+        DEPRECATED("abspath", |<2015.01 2016.01>);
+        $!abspath;
+    }
+    method relative(IO::Locally:D: |c) {
+        DEPRECATED("relpath", |<2015.01 2016.01>);
+        self.relpath(|c);
+    }
 }
 
 # vim: ft=perl6 expandtab sw=4