The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SVN::Web::Blame - SVN::Web action to show blame/annotation information

SYNOPSIS

In config.yaml

  actions:
    ...
    blame:
      class: SVN::Web::Blame
      action_menu:
        show:
          - file
        link_text: (view blame)
    ...

DESCRIPTION

Shows a specific revision of a file in the Subversion repository, with blame/annotation information.

OPTIONS

rev

The revision of the file to show. Defaults to the repository's youngest revision.

If this is not an interesting revision for this file, the repository history is searched to find the youngest interesting revision for this file that is less than rev.

TEMPLATE VARIABLES

at_head

A boolean value, indicating whether the user is currently viewing the HEAD of the file in the repository.

context

Always file.

rev

The revision that has been returned. This is not necessarily the same as the rev option passed to the action. If the rev passed to the action is not interesting (i.e., there were no changes to the file at that revision) then the file's history is searched backwards to find the next oldest interesting revision.

youngest_rev

The youngest interesting revision of the file.

mimetype

The file's MIME type, extracted from the file's svn:mime-type property. If this is not set then text/plain is used.

blame_details

An array of hashes. Each entry in the array corresponds to a line from the file. Each hash contains the following keys:

line_no

The line number (starting with 0) in the file.

revision

The revision in which this line was last changed.

author

The author of the revision that changed this line

date

The date on which the line was changed, formatted according to "Time and date formatting" in SVN::Web.

line

The contents of this line.

EXCEPTIONS

None.

COPYRIGHT

Copyright 2007 by Nik Clayton <nik@FreeBSD.org>.

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

See http://www.perl.com/perl/misc/Artistic.html