Win32::DriveInfo dump for S::FS

gistfile1.txt

use DDP;
use Win32::DriveInfo;

for my $func (qw(DriveType VolumeInfo)) {
    for my $drv (qw(a c)) {
	$res{$func . "-" . $drv} = [ Win32::DriveInfo->can($func)->($drv) ];
    }
}
$res{GetVersionEx} = Win32::DriveInfo::GetVersionEx();
p(%res);

{
    DriveType-a   +  [
    [0] 2
    ],
    DriveType-c   +  [
    [0] 3
    ],
    GetVersionEx  +  "Service Pack 1",
    VolumeInfo-a  +  [
    [0] undef
    ],
    VolumeInfo-c  +  [
    [0] "",
    [1] "746E:9F82",
    [2] 255,
    [3] "NTFS",
    [4] 1,
    [5] 2,
    [6] 3,
    [7] 4,
    [8] 6
    ]
}