diff options
| -rw-r--r-- | lib/Youri/Repository.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/lib/Youri/Repository.pm b/lib/Youri/Repository.pm index 54b3beb..255d217 100644 --- a/lib/Youri/Repository.pm +++ b/lib/Youri/Repository.pm @@ -127,7 +127,7 @@ sub get_newer_revisions { $package, $target, $define, - sub { return $_[0]->compare($package) > 0 } + sub { return $_[0]->compare($package) >= 0 } ); } @@ -297,6 +297,20 @@ sub get_archive_dir { $self->get_archive_path($package, $target, $define); } +=head2 get_reject_dir($package, $target, $define) + +Returns rejecting destination directory for given L<Youri::Package> object +and given target. + +=cut + +sub get_reject_dir { + my ($self, $package, $target, $define) = @_; + croak "Not a class method" unless ref $self; + + return + $self->get_reject_path($package, $target, $define); +} =head2 get_version_root() Returns versionning root @@ -354,6 +368,12 @@ L<Youri::Package> object and given target. Returns archiving destination path (relative to repository root) for given L<Youri::Package> object and given target. +=head2 get_reject_path($package, $target, $define) + +Returns reject destination path for given +L<Youri::Package> object and given target. + + =head2 get_version_path($package, $target, $define) Returns versioning destination path (relative to repository root) for given |