SVN::SVNLook - Perl wrapper to the svnlook command.

  use SVN::SVNLook;

  my $revision = 1;
  my $svnlook = SVN::SVNLook->new(repo => 'repo url',
                                   cmd => 'path to svn look');
  my ($author,$date,$logmessage) = $svnlook->info(revision => $revision);

  print "Author $author\n";
  print "Date $date\n";
  print "LogMessage $logmessage\n";

SVN::SVNLook runs the command line client. This module was created to make adding hooks script easier to manipulate.

  youngest ();

Perform the youngest command on the repository. Returns the revision number of the most recent revision as a scalar.

  info (revision=>$revision);

Perform the info command, for a given revision or transaction using named parameters, or a single parameter will be assumed to mean revision for backwards compatibility. The information returned is an array containing author, date, and log message. If no $revision is specified, info for the youngest revision is returned.

  author (revision=>$revision);

Perform the author command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatibility. The information returned is the author message. If no $revision or transaction is specified, author for the youngest revision is returned.

  dirschanged (revision=>$revision)

Performs the dirs-changed command, for a given revision or transaction using named parameters, or a single parameter will be assumed to mean revision for backwards compatibility. This method returns a boolean and an array reference.

  fileschanged (revision=>$revision)

Performs the changed command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatibility this method returns 3 array references added, deleted and modified.

  diff (revision=>$revision)

Performs the diff command, for a given revision or transaction using named parameters or a single parameter will be assumed to mean revision for backwards compatability this method returns a hash reference, with each file being the key and value being the diff info.

Salvatore E ScottoDiLuzio, <sal.scotto@gmail.com> Contributions by Kevin Semande

Copyright 2005 Salvatore E. ScottoDiLuzio. All Rights Reserved.

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