[io grant] Document IO::Path*.perl

Author: zoffixznet

doc/Type/IO/Path.pod6

@@ -291,6 +291,22 @@ respectively.
     say IO::Path::Win32.new("C:/rakudo/perl6.bat").parts.perl;
     # OUTPUT: «Map.new((:basename("perl6.bat"),:dirname("/rakudo"),:volume("C:")))␤»
 
+=head2 method perl
+
+Defined as:
+
+    method perl(IO::Path:D: --> Str:D)
+
+Returns a string that, when given passed through L«C<EVAL>|/routine/EVAL»
+gives the original invocant back.
+
+    "foo/bar".IO.perl.say;
+    # OUTPUT: IO::Path.new("foo/bar", :SPEC(IO::Spec::Unix), :CWD("/home/camelia"))
+
+Note that this string includes the value of the C<.CWD> attribute that is set
+to L«C<$*CWD>|/language/variables#index-entry-%24%2ACWD» when the path
+object was created, by default.
+
 =head2 method gist
 
 Defined as:

doc/Type/IO/Path/Cygwin.pod6

@@ -18,6 +18,22 @@ C<:$SPEC> cannot be set and defaults to
 L«C<IO::Spec::Cygwin>|/type/IO::Spec::Cygwin», regardless of the operating
 system the code is being run on.
 
+=head2 method perl
+
+Defined as:
+
+    method perl(IO::Path::Cygwin:D: --> Str:D)
+
+Returns a string that, when given passed through L«C<EVAL>|/routine/EVAL»
+gives the original invocant back.
+
+    IO::Path::Cygwin.new("foo/bar").perl.say;
+    # OUTPUT: IO::Path::Cygwin.new("foo/bar", :CWD("/home/camelia"))
+
+Note that this string includes the value of the C<.CWD> attribute that is set
+to L«C<$*CWD>|/language/variables#index-entry-%24%2ACWD» when the path
+object was created, by default.
+
 =end pod
 
 # vim: expandtab shiftwidth=4 ft=perl6

doc/Type/IO/Path/QNX.pod6

@@ -18,6 +18,22 @@ C<:$SPEC> cannot be set and defaults to
 L«C<IO::Spec::QNX>|/type/IO::Spec::QNX», regardless of the operating system
 the code is being run on.
 
+=head2 method perl
+
+Defined as:
+
+    method perl(IO::Path::QNX:D: --> Str:D)
+
+Returns a string that, when given passed through L«C<EVAL>|/routine/EVAL»
+gives the original invocant back.
+
+    IO::Path::QNX.new("foo/bar").perl.say;
+    # OUTPUT: IO::Path::QNX.new("foo/bar", :CWD("/home/camelia"))
+
+Note that this string includes the value of the C<.CWD> attribute that is set
+to L«C<$*CWD>|/language/variables#index-entry-%24%2ACWD» when the path
+object was created, by default.
+
 =end pod
 
 # vim: expandtab shiftwidth=4 ft=perl6

doc/Type/IO/Path/Unix.pod6

@@ -18,6 +18,22 @@ C<:$SPEC> cannot be set and defaults to
 L«C<IO::Spec::Unix>|/type/IO::Spec::Unix», regardless of the operating system
 the code is being run on.
 
+=head2 method perl
+
+Defined as:
+
+    method perl(IO::Path::Unix:D: --> Str:D)
+
+Returns a string that, when given passed through L«C<EVAL>|/routine/EVAL»
+gives the original invocant back.
+
+    IO::Path::Unix.new("foo/bar").perl.say;
+    # OUTPUT: IO::Path::Unix.new("foo/bar", :CWD("/home/camelia"))
+
+Note that this string includes the value of the C<.CWD> attribute that is set
+to L«C<$*CWD>|/language/variables#index-entry-%24%2ACWD» when the path
+object was created, by default.
+
 =end pod
 
 # vim: expandtab shiftwidth=4 ft=perl6

doc/Type/IO/Path/Win32.pod6

@@ -18,6 +18,22 @@ C<:$SPEC> cannot be set and defaults to
 L«C<IO::Spec::Win32>|/type/IO::Spec::Win32», regardless of the operating system
 the code is being run on.
 
+=head2 method perl
+
+Defined as:
+
+    method perl(IO::Path::Win32:D: --> Str:D)
+
+Returns a string that, when given passed through L«C<EVAL>|/routine/EVAL»
+gives the original invocant back.
+
+    IO::Path::Win32.new("foo/bar").perl.say;
+    # OUTPUT: IO::Path::Win32.new("foo/bar", :CWD("C:\\Users\\camelia"))
+
+Note that this string includes the value of the C<.CWD> attribute that is set
+to L«C<$*CWD>|/language/variables#index-entry-%24%2ACWD» when the path
+object was created, by default.
+
 =end pod
 
 # vim: expandtab shiftwidth=4 ft=perl6