Data::Timeline::Builder - Base class for time line builders


Data-Timeline documentation Contained in the Data-Timeline distribution.

Index


Code Index:

NAME

Top

Data::Timeline::Builder - Base class for time line builders

VERSION

Top

version 1.100860

SYNOPSIS

Top

    Data::Timeline::Builder->new;

    package Data::Timeline::SVK;
    use base 'Data::Timeline::Builder';

    sub create {
        my $self = shift;
        my $timeline = $self->make_timeline;
        for (@entries) {
            # ...
            $timeline->entries_push($self->make_entry(
                timestamp   => '...',
                description => '...',
                type        => 'svk',
            ));
        }
        $timeline;
    }

DESCRIPTION

Top

This is a base class for time line builders. Subclasses need to implement the create() method.

METHODS

Top

make_entry

FIXME

make_timeline

FIXME

INSTALLATION

Top

See perlmodinstall for information and options on installing Perl modules.

BUGS AND LIMITATIONS

Top

No bugs have been reported.

Please report any bugs or feature requests through the web interface at http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Timeline.

AVAILABILITY

Top

The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit http://www.perl.com/CPAN/ to find a CPAN site near you, or see http://search.cpan.org/dist/Data-Timeline/.

The development version lives at http://github.com/hanekomu/Data-Timeline/. Instead of sending patches, please fork this project using the standard git and github infrastructure.

AUTHOR

Top

  Marcel Gruenauer <marcel@cpan.org>

COPYRIGHT AND LICENSE

Top


Data-Timeline documentation Contained in the Data-Timeline distribution.

use 5.008;
use strict;
use warnings;

package Data::Timeline::Builder;
our $VERSION = '1.100860';
# ABSTRACT: Base class for time line builders
use Data::Timeline;
use Data::Timeline::Entry;
use parent qw(Class::Accessor::Complex Class::Accessor::Constructor);
__PACKAGE__
    ->mk_constructor
    ->mk_abstract_accessors(qw(create));

sub make_timeline {
    my $self = shift;
    Data::Timeline->new(@_);
}

sub make_entry {
    my $self = shift;
    Data::Timeline::Entry->new(@_);
}
1;


__END__