#!/usr/bin/perl -w
use strict;
use Project::Gantt;
my $chart = new Project::Gantt(
description => 'Less than a month',
mode => 'months',
file => 'lessmns.png');
my $me = $chart->addResource(
name => 'Alex');
my $trip = $chart->addSubProject(
description => 'Vacation');
$chart->addTask(
description => 'Work',
resource => $me,
start => '2004-08-01',
end => '2004-08-04');
$trip->addTask(
description => 'Relax',
resource => $me,
start => '2004-08-05',
end => '2004-08-08');
$trip->addTask(
description => 'Go diving',
resource => $me,
start => '2004-08-09',
end => '2004-08-13');
$trip->addTask(
description => 'Live luxuriously',
resource => $me,
start => '2004-08-14',
end => '2004-08-16');
$chart->display();