Apache::CVS::Graph - class that implements a graph that details the revision

 use Apache::CVS::File();
 use Apache::CVS::Graph();
 use Graph::Directed();

 $file = Apache::CVS::File->new($path, $rcs_config);
 $cvs_graph = Apache::CVS::Graph->new($file);
 $graph = $cvs_graph->graph();
 @vertices = $graph->vertices();

# $Id: Graph.pm,v 1.2 2002/11/12 03:36:40 barbee Exp $

package Apache::CVS::Graph;
use strict;

use Rcs();
use Graph::Directed();
use Apache::CVS::File;

$Apache::CVS::Graph::VERSION = $Apache::CVS::VERSION;;

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self;
 
    $self->{file} = shift;
    $self->{graph} = undef;
    $self->{labels} = {};
    bless ($self, $class);
    return $self;
}

sub file {
    my $self = shift;
    $self->{file} = shift if scalar @_;
    return $self->{file};
}

sub graph {
    my $self = shift;
    $self->{graph} = shift if scalar @_;
    # must used defined since Graph overloads double quotes.
    $self->_load() unless defined($self->{graph});
    return $self->{graph};
}

sub root_node {
    return '1.1';
}

sub labels {
    my $self = shift;
    $self->{labels} = shift if scalar @_;
    $self->_load() unless $self->{labels};
    return $self->{labels};
}

sub _resolve_version {
    my $number = shift;
    $number =~ s#1\.1(\.1)*#1\.1#;
    $number =~ s#\.0\.\d+$##;
    return $number;
}

sub _create_vertex {
    my $self = shift;
    my $vertex_id = shift;
    my $parent_id = $vertex_id;

    my $graph = $self->graph();

    return if $graph->has_vertex($vertex_id);

    # base case
    if ($vertex_id eq '1.1') {
        $graph->add_vertex($vertex_id);
        return $vertex_id;
    }

    # if revision isn't x.1, then the parent is one fewer.
    if ($vertex_id =~ /(?<=\.)(\d{2,}|[^1])$/) {
        # $& should only include the trailing '1'
        my $minus_one = $& - 1;
        $parent_id = $` . $minus_one;
    # otherwise this is the first branch revision, so the parent is the branch
    # root revision
    } else {
        $parent_id =~ s#(\.\d){2}$##;
    }
    $self->_create_vertex($parent_id);
    $graph->add_vertex($vertex_id);
    $graph->add_path($parent_id, $vertex_id);
}

sub _load {
    my $self = shift;
    die "No version file to graph." unless $self->file();

    my $labels = {};
    $self->graph(Graph::Directed->new());

    my @revisions = $self->file()->rcs()->revisions();
    foreach my $rev (@revisions) {
        my @symbols = $self->file()->rcs()->symbol($rev);
        my $resolved_version = _resolve_version($rev);
        $self->_create_vertex($resolved_version);
        push @{ $labels->{$resolved_version} }, @symbols;
    }
    $self->labels($labels);
}

1;