$ perl -MPath::Tiny -le "  print path( 'C:/')->realpath  "
C:/Documents and Settings/username

$ perl -MPath::Tiny -le "  print path( 'D:/')->realpath  "
D:/dev/misc

$ perl -MPath::Tiny -le "  print path( 'C:/')->absolute->realpath  "
D:/dev/misc/C:: No such file or directory at C:/perl/site/lib/Path/Tiny.pm line 449.

$ mversion Path::Tiny
0.028

##</code><code>##

$path =~ s{/$}{} if $path ne "/"; # hack to make splitpath give us a basename
##</code><code>##

not ok 55 - path('A:/')
#   Failed test 'path('A:/')'
#   at t/zzz-spec.t line 200.
#          got: 'A:/'
#     expected: 'A:'

not ok 67 - path('A:/')
#   Failed test 'path('A:/')'
#   at t/zzz-spec.t line 200.
#          got: 'A:/'
#     expected: 'A:'