if (ref ($sentdate) eq 'Win32::OLE::Variant') {
# something with $sentdate->Date
} else {
# assume $sentdate is a string.
}
Best practice is to use UNIVERSAL::isa() :
if (UNIVERSAL::isa($sentdate, 'Win32::OLE::Variant')) {
}
else {
}
Tested with:
perl -MWin32::OLE::Variant -e"$v=Win32::OLE::Variant->new();print
qq(YESSIR) if UNIVERSAL::isa($v, q(Win32::OLE::Variant))"
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
