Algorithm-Annotate

 view release on metacpan or  search on metacpan

Annotate.pm  view on Meta::CPAN

output simliar to C<cvs annotate>.

=head1 TODO

Might parse diff output and accumulate them for generating the annotate list.

=cut

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    return $self;
}

sub init {
    my ($self, $info, $seq) = @_;
    $self->{lastseq} = $seq;
    $self->{annotate} = [map {$info} @$seq];
}

sub add {



( run in 0.303 second using v1.01-cache-2.11-cpan-de7293f3b23 )