r65827 - in /branches/upstream/libsvn-look-perl/current: Changes META.yml README lib/SVN/Look.pm

Tue Dec 14 12:35:51 UTC 2010

Author: angelabad-guest
Date: Tue Dec 14 12:35:06 2010
New Revision: 65827

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65827
Log:
[svn-upgrade] new version libsvn-look-perl (0.20)

Modified:
    branches/upstream/libsvn-look-perl/current/Changes
    branches/upstream/libsvn-look-perl/current/META.yml
    branches/upstream/libsvn-look-perl/current/README
    branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm

Modified: branches/upstream/libsvn-look-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/Changes?rev=65827&op=diff
==============================================================================

--- branches/upstream/libsvn-look-perl/current/Changes (original)
+++ branches/upstream/libsvn-look-perl/current/Changes Tue Dec 14 12:35:06 2010
@@ -1,4 +1,12 @@
 Revision history for SVN-Look. -*- text -*-
+
+0.20	2010-12-12
+
+	Fix methods copied_from and copied_to.
+
+0.19	2010-12-12
+
+	Implements the method tree.
 
 0.18	2010-04-28
 

Modified: branches/upstream/libsvn-look-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/META.yml?rev=65827&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Tue Dec 14 12:35:06 2010
@@ -1,15 +1,23 @@
 --- #YAML:1.0
-name:                SVN-Look
-version:             0.18
-abstract:            A caching wrapper aroung the svnlook command.
-license:             ~
-author:              
+name:               SVN-Look
+version:            0.20
+abstract:           A caching wrapper aroung the svnlook command.
+author:
     - Gustavo Chaves <gustavo+perl at gnustavo.org>
-generated_by:        ExtUtils::MakeMaker version 6.42
-distribution_type:   module
-requires:     
-    File::Spec::Functions:         0
-    Test::More:                    0
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    File::Spec::Functions:  0
+    Test::More:           0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libsvn-look-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/README?rev=65827&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/README (original)
+++ branches/upstream/libsvn-look-perl/current/README Tue Dec 14 12:35:06 2010
@@ -1,6 +1,6 @@
 Name:    SVN-Look
 What:    A caching wrapper aroung the svnlook command.
-Version: 0.18
+Version: 0.20
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 SVN-Look is a caching wrapper aroung the svnlook command.
@@ -46,7 +46,7 @@
 
 COPYRIGHT AND LICENCE
 
-Copyright (C) 2008 CPqD (http://www.cpqd.com.br/)
+Copyright (C) 2008-2010 CPqD (http://www.cpqd.com.br/)
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

Modified: branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm?rev=65827&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Tue Dec 14 12:35:06 2010
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.18
-
-=cut
-
-our $VERSION = '0.18';
+Version 0.20
+
+=cut
+
+our $VERSION = '0.20';
 
 =head1 SYNOPSIS
 
@@ -227,7 +227,7 @@
 
 Returns a reference to a hash containing information about all file
 changes occurred in the revision. The hash always has the following
-pairs:
+keys:
 
 =over
 
@@ -249,8 +249,7 @@
 
 =item copied
 
-A hash mapping the old to the new name of each file moved in the
-revision.
+A hash containing information about each file or diretory copied in the revision. The hash keys are the names of elements copied to. The value associated with a key is a two-element array containing the name of the element copied from and the specific revision from which it was copied.
 
 =back
 
@@ -369,29 +368,29 @@
     return @{$self->{dirs_changed}};
 }
 
+=item B<copied_to>
+
+Returns the list of new names of files that were copied in the
+revision/transaction.
+
+=cut
+
+sub copied_to {
+    my $self = shift;
+    return keys %{$self->changed_hash()->{copied}};
+}
+
 =item B<copied_from>
 
-Returns the list of original names of files that were renamed in the
-revision/transaction.
+Returns the list of original names of files that were copied in the
+revision/transaction. The order of this list is guaranteed to agree
+with the order generated by the method copied_to.
 
 =cut
 
 sub copied_from {
     my $self = shift;
-    return keys %{$self->changed_hash()->{copied_from}};
-}
-
-=item B<copied_to>
-
-Returns the list of new names of files that were renamed in the
-revision/transaction. The order of this list is guaranteed to agree
-with the order generated by the method copied_from.
-
-=cut
-
-sub copied_to {
-    my $self = shift;
-    return values %{$self->changed_hash()->{copied_from}};
+    return map {$_->[0]} values %{$self->changed_hash()->{copied}};
 }
 
 =item B<cat> PATH
@@ -508,6 +507,35 @@
     return %lock ? \%lock : undef;
 }
 
+=item B<tree> [PATH_IN_REPOS, OPTS, ...]
+
+Returns the repository tree as a list of paths, starting at
+PATH_IN_REPOS (if supplied, at the root of the tree otherwise),
+optionally showing node revision ids.
+
+=over
+
+=item C<--full-paths>
+
+show full paths instead of indenting them.
+
+=item C<--show-ids>
+
+Returns the node revision ids for each path.
+
+=item C<--non-recursive>
+
+Operate on single directory only.
+
+=back
+
+=cut
+
+sub tree {
+    my ($self, @opts) = @_;
+    return $self->_svnlook('tree', @opts);
+}
+
 =back
 
 =head1 AUTHOR


