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 )