#!/usr/bin/perl -w
use strict;
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()