[boxer] 06/33: Drop unusued code in Boxer::CLI.

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag debian/1.1.5-1
in repository boxer.

commit d4e265444e1fcd7934721267948f6c3b030edbed
Author: Jonas Smedegaard <dr at jones.dk>
Date:   Wed Jun 29 20:01:44 2016 +0200

    Drop unusued code in Boxer::CLI.
---
 lib/Boxer/CLI/Command.pm | 84 ------------------------------------------------
 meta/makefile.pret       |  2 --
 2 files changed, 86 deletions(-)

diff --git a/lib/Boxer/CLI/Command.pm b/lib/Boxer/CLI/Command.pm
index cb33d26..b1c8fcd 100644
--- a/lib/Boxer/CLI/Command.pm
+++ b/lib/Boxer/CLI/Command.pm
@@ -11,10 +11,6 @@ use version;
 use Role::Commons -all;
 
 use Log::Any::Adapter qw<Screen>;
-use File::HomeDir qw<>;
-use File::Temp qw<>;
-use JSON qw<>;
-use Path::Class qw<>;
 use App::Cmd::Setup-command;
 
 use namespace::clean;
@@ -27,86 +23,6 @@ Version v1.1.4
 
 our $VERSION = version->declare("v1.1.4");
 
-my %config;
-
-sub get_tempdir
-{
-	Path::Class::Dir::->new(File::Temp::->newdir);
-}
-
-sub _get_distdatadir
-{
-	File::HomeDir::->my_dist_data('boxer')
-		// Path::Class::Dir::->new(
-		File::HomeDir::->my_home => qw(boxer data) )->stringify;
-}
-
-sub _get_distconfigdir
-{
-	File::HomeDir::->my_dist_config('config')
-		// Path::Class::Dir::->new(
-		File::HomeDir::->my_home => qw(boxer etc) )->stringify;
-}
-
-sub get_cachedir
-{
-	my $self = shift;
-	my $d    = Path::Class::Dir::->new(
-		$self->_get_distdatadir,
-		( ( $self->command_names )[0] ),
-		'cache',
-	);
-	$d->mkpath;
-	return $d;
-}
-
-sub get_datadir
-{
-	my $self = shift;
-	my $d    = Path::Class::Dir::->new(
-		$self->_get_distdatadir,
-		( ( $self->command_names )[0] ),
-		'store',
-	);
-	$d->mkpath;
-	return $d;
-}
-
-sub get_configfile
-{
-	my $self = shift;
-	my $f    = Path::Class::File::->new(
-		$self->_get_distconfigdir,
-		( ( $self->command_names )[0] ),
-		'config.json',
-	);
-}
-
-sub get_config
-{
-	my $proto = shift;
-	my $class = ref($proto) || $proto;
-
-	unless ( $config{$class} ) {
-		$config{$class} = eval {
-			JSON::->new->decode( scalar $proto->get_configfile->slurp );
-		}
-			|| +{};
-	}
-
-	$config{$class};
-}
-
-sub save_config
-{
-	my $proto  = shift;
-	my $class  = ref($proto) || $proto;
-	my $config = $config{$class} || +{};
-
-	my $fh = $proto->get_configfile->openw;
-	print $fh $config;
-}
-
 =head1 AUTHOR
 
 Jonas Smedegaard C<< <dr at jones.dk> >>.
diff --git a/meta/makefile.pret b/meta/makefile.pret
index 63e0652..5bb8c11 100644
--- a/meta/makefile.pret
+++ b/meta/makefile.pret
@@ -9,9 +9,7 @@
 	:runtime-requirement  [ :on "strictures 2"^^:CpanId ];
 	:runtime-requirement  [ :on "Capture::Tiny 0"^^:CpanId ];
 	:runtime-requirement  [ :on "File::BaseDir 0"^^:CpanId ];
-	:runtime-requirement  [ :on "File::HomeDir 0"^^:CpanId ];
 	:runtime-requirement  [ :on "File::ShareDir 0"^^:CpanId ];
-	:runtime-requirement  [ :on "JSON 2.00"^^:CpanId ];
 	:runtime-requirement  [ :on "match::simple 0"^^:CpanId ];
 	:runtime-requirement  [ :on "Module::Runtime"^^:CpanId ];
 	:runtime-requirement  [ :on "Moo 1.001000"^^:CpanId ];

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/boxer.git