File Coverage

blib/lib/App/Zealc.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	34	36	94.4

package App::Zealc;

use 5.014000;
use strict;
use warnings;

our $VERSION = '0.000_001';

use App::Cmd::Setup '-app';
use parent qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw/path zeal config verbose/);

use Class::Method::Modifiers qw/before/;
use Config::Auto;

use File::Spec::Functions qw/catfile/;

use Zeal;

use constant DEFAULT_PATH => $ENV{HOME} ? catfile $ENV{HOME}, '.docsets' : '.docsets';

sub allow_any_unambiguous_abbrev () { 1 }
sub default_command { 'commands' } # Show usage when called without arguments

sub global_opt_spec {
	(['config|c=s' => 'Path to configuration file'],
	 ['path|p=s'   => 'Path to docset directory',],
	 ['verbose|v!' => 'Print verbose debugging output'])
}

sub parse_config {
	my ($cfg) = @_;
	return Config::Auto::parse($cfg) if $cfg;
	eval { Config::Auto::parse } or {}
}

before 'execute_command' => sub {
	my ($self) = @_;
	my %opts   = %{$self->global_options};
	my $config = parse_config $ENV{ZEALC_CONFIG} || $opts{config};
	my %config = %$config;
	my $path   = $opts{path} || $config{path} || DEFAULT_PATH;
	mkdir $path unless -d $path;

	my $zeal   = Zeal->new($path);
	$self->path($path);
	$self->zeal($zeal);
	$self->config($config);
	$self->verbose($opts{verbose} || $config{verbose})
};

1;
__END__