$ perl -E " use Win32::Unicode::File; use Data::Dump; dd \@Win32::Unicode::File::EXPORT, \&moveW ; moveW()"
(
[
"file_type",
"file_size",
"copyW",
"moveW",
"unlinkW",
"touchW",
"renameW",
"statW",
"utimeW",
],
sub { ... },
)
Usage: moveW(from, to [, over]) at -e line 1.
####
$ perl -E " use Win32::Unicode; use Data::Dump; errorW(); dd [ $@, errorW() ]; eval { moveW() }; dd [ $@, errorW()]; eval { moveW(qw{ . . }) }; dd[$@, errorW()]; dieW 666;"
["", "The handle is invalid."]
[
"Usage: moveW(from, to [, over]) at -e line 1.\n",
"The handle is invalid.",
]
["", "The handle is invalid."]
666 at -e line 1.
##
##
$ perl -MPath::Class -E " say file(1) "
1
$ perl -MPath::Class -E " say ref file(1) "
Path::Class::File
$ perl -MPath::Class -MData::Dump -E " dd file(1) "
bless({ dir => undef, file => 1, file_spec_class => undef }, "Path::Class::File")
$ perl -MPath::Class -E " say file(1)->basename "
1
$