#!/usr/bin/perl -w
my
$chart
= new Project::Gantt(
description
=>
'Less than a day'
,
mode
=>
'days'
,
file
=>
'lessdys.png'
);
my
$me
=
$chart
->addResource(
name
=>
'Alex'
);
my
$dayTrip
=
$chart
->addSubProject(
description
=>
'Trip to the cays'
);
$chart
->addTask(
description
=>
'Wake up'
,
resource
=>
$me
,
start
=>
'2004-08-11 08:00:00'
,
end
=>
'2004-08-11 08:30:00'
);
$chart
->addTask(
description
=>
'Breakfast'
,
resource
=>
$me
,
start
=>
'2004-08-11 08:45:00'
,
end
=>
'2004-08-11 09:30:00'
);
$dayTrip
->addTask(
description
=>
'Sail to cays'
,
resource
=>
$me
,
start
=>
'2004-08-11 10:15:00'
,
end
=>
'2004-08-11 14:30:00'
);
$dayTrip
->addTask(
description
=>
'Go diving'
,
resource
=>
$me
,
start
=>
'2004-08-11 14:45:00'
,
end
=>
'2004-08-11 17:00:00'
);
$chart
->display()