SYNOPSIS

  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";

DESCRIPTION

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

METHODs

youngest

youngest ();

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

info

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

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

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

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

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.

AUTHOR

Salvatore E ScottoDiLuzio, <[email protected]> Contributions by Kevin Semande

COPYRIGHT

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.