#!/usr/bin/perl
#
# SOPW: How does one import things
# with Module::Load::Conditional?
#
# Like:
# use IPC::Cmd 'QUOTE';
# use Time::HiRes 'time';
# print join '', QUOTE, time, QUOTE, "\n";
#
# So they don't have to be fully qualified for use
# like Time::HiRes::time() (<- parens not optional)

use 5.9.5; 
use strict;
use warnings;
use Module::Load::Conditional 'can_load';

my $modules = { map {$_ => undef} qw/
IPC::Cmd
Time::HiRes
/};

die "Please install required perl modules: \n".
join ' ', 'cpan',     keys(%$modules),    "\n".
join ' ', 'cpanm -v', keys(%$modules),    "\n"
unless can_load(modules=>$modules, autoload=>1);

print join '', 
IPC::Cmd::QUOTE(),
Time::HiRes::time(),
IPC::Cmd::QUOTE(),"\n";

#print join '', QUOTE, time, QUOTE, "\n"; # goal