NAME

SYNOPSIS

 #!/usr/bin/perl -w
 # a fun, imaginary wednesday
 use strict;
 use Project::Gantt;
 use Project::Gantt::Skin;
 
 my $skin= new Project::Gantt::Skin(
        doTitle         =>      0);
 
 my $day = new Project::Gantt(
        file            =>      'hourly.png',
        skin            =>      $skin,
        mode            =>      'hours',
        description     =>      'A day in the life');
 
 my $al = $day->addResource(
        name            =>      'Alex');        
 
 $day->addTask(
        description     =>      'Finish sleep',
        resource        =>      $al,
        start           =>      '2004-07-21 00:00:00',
        end             =>      '2004-07-21 08:30:00');
 
 $day->addTask(
        description     =>      'Breakfast/Wakeup',
        resource        =>      $al,
        start           =>      '2004-07-21 08:30:00',
        end             =>      '2004-07-21 10:00:00');
 
 my $sub = $day->addSubProject(
        description     =>      'Important Stuff');
 $sub->addTask(
        description     =>      'Contemplate my navel',
        resource        =>      $al,
        start           =>      '2004-07-21 10:00:00',
        end             =>      '2004-07-21 11:00:00');
 
 $day->addTask(
        description     =>      'Lunch',
        resource        =>      $al,
        start           =>      '2004-07-21 11:00:00',
        end             =>      '2004-07-21 12:30:00');
 $sub->addTask(
        description     =>      'Wonder about life',
        resource        =>      $al,
        start           =>      '2004-07-21 11:00:00',
        end             =>      '2004-07-21 11:22:00');
 
 $day->addTask(
        description     =>      'Code for a while',
        resource        =>      $al,
        start           =>      '2004-07-21 12:30:00',
        end             =>      '2004-07-21 17:00:00');
 
 $day->addTask(
        description     =>      'Sail',
        resource        =>      $al,
        start           =>      '2004-07-21 17:00:00',
        end             =>      '2004-07-21 20:30:00');
 $day->display();

DESCRIPTION

The code above creates a simple chart to display the hour-by-hour breakdown of a sample day. Notice the Project::Gantt::Skin object in use. This allows the look and feel of a Gantt chart to be customized. Also note that tasks are divided into two main categories: those that fall directly under the project, and those which are members of the subproject "Important Stuff". Note also that the chart itself will be written to a file in the current working directory called "hourly.png". This filename attribute may be set to something such as "png:-" to send output directly to STDOUT.

As can be seen from the example, the methods that will be called by a user of this module include: addResource,addTask, addSubProject, and display. The names of these methods suggest their purpose, but they will be further explained.

new()

new takes the following parameters: the skin object in use (if not using the default), the filename to use when writing the chart (use "png:-" to write to STDOUT), an overall description for the chart, and the time mode for output. The filename and description are fairly self explanatory. The Project::Gantt::Skin object will be covered later in this document. The time mode selects which unit of time to use when displaying the chart. This unit can be one of the following: hours, days, and months. Note that when using the months mode, small overflows of pixels may be present (i.e., one pixel more than should be). Normally these are not noticeable. They are a result of the calculation used to determine how many pixels a timespan should fill when using month more. This is because of the discrepancies between days in various months. If swim lanes are not in use (see the section on Project::Gantt::Skin), these errors are unnoticeable.

addResource()

addResource really only requires a name parameter at this point. The method will accept whatever you give it, but currently only the name parameter has any impact on the resulting chart.

addTask()

addTask attaches a Project::Gantt::Task object to the Project::Gantt instance that called it. The calling instance may be the root project, or any subproject. The task will be anchored directly underneath it. Parameters that must be passed to this method are as follows: a description of the task, the resource assigned to its undertaking, the starting date of the task and its end date.

addSubProject()

addSubProject returns an instance of Project::Gantt anchored underneath the instance that called it. Thanks to Peter Weatherdon, you can now create nested sub-projects using this method on an existing sub-project object. This reference may then be used to call addTask and create a container relationship with Project::Gantt::Task objects. Currently, the only necesarry parameter is a description of the sub-project.

display()

Oddly enough, display writes the chart to a file.

AUTHOR

CHANGES

January 2005: Modifications made by Peter Weatherdon (peter.weatherdon AT us.cd-adapco.com), including various bug fixes, and nested sub-projects.

SEE ALSO

COPYRIGHT

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

POD ERRORS

Around line 115:

You forgot a '=back' before '=head2'