From c1f05dde78f6acb5e401fee863bfd67736ae662b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 11 Feb 2020 10:39:05 -0700 Subject: Revert "put Git::Annex::Wrapper in its own file" This reverts commit b8dbaa0149d7f300a608bb1ee92178b29589617a. No-one should be instantiating this class so it probably shouldn't have a POD. Signed-off-by: Sean Whitton --- lib/Git/Annex.pm | 11 ++++++++++- lib/Git/Annex/Wrapper.pm | 40 ---------------------------------------- 2 files changed, 10 insertions(+), 41 deletions(-) delete mode 100644 lib/Git/Annex/Wrapper.pm diff --git a/lib/Git/Annex.pm b/lib/Git/Annex.pm index 625f93d..5312083 100644 --- a/lib/Git/Annex.pm +++ b/lib/Git/Annex.pm @@ -55,7 +55,6 @@ use warnings; use Cwd; use File::chdir; use Git::Wrapper; -use Git::Annex::Wrapper; use Git::Repository; use Try::Tiny; use File::Spec::Functions qw(catfile rel2abs); @@ -315,6 +314,16 @@ sub _git_path { rel2abs $path, $self->toplevel; } +package Git::Annex::Wrapper { + AUTOLOAD { + my $self = shift; + (my $subcommand = our $AUTOLOAD) =~ s/.+:://; + return if $subcommand eq "DESTROY"; + $subcommand =~ tr/_/-/; + $$self->git->RUN("annex", $subcommand, @_); + } +} + =attr annex Gives access to git-annex subcommands in the same way that diff --git a/lib/Git/Annex/Wrapper.pm b/lib/Git/Annex/Wrapper.pm deleted file mode 100644 index 12d47b0..0000000 --- a/lib/Git/Annex/Wrapper.pm +++ /dev/null @@ -1,40 +0,0 @@ -package Git::Annex::Wrapper; -# ABSTRACT: class used in implementation of Git::Annex::annex -# -# Copyright (C) 2020 Sean Whitton -# -# This program is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 3 of the License, or (at -# your option) any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see . - -=head1 DESCRIPTION - -See documentation for L. - -=cut - -use 5.028; -use strict; -use warnings; - -# credits to Git::Wrapper's author for the idea of accessing -# subcommands in this way; I've just extended that idea to -# subsubcommands of git -AUTOLOAD { - my $self = shift; - (my $subcommand = our $AUTOLOAD) =~ s/.+:://; - return if $subcommand eq "DESTROY"; - $subcommand =~ tr/_/-/; - $$self->git->RUN("annex", $subcommand, @_); -} - -1; -- cgit v1.2.3