Dist::Joseki::Cmd - Application class for distribution commands

Dist-Joseki documentation Contained in the Dist-Joseki distribution.

Index

Code Index:

NAME

Top

Dist::Joseki::Cmd - Application class for distribution commands

SYNOPSIS

Top

    Dist::Joseki::Cmd->new;

DESCRIPTION

Top

None yet.

METHODS

Top

Dist::Joseki::Cmd inherits from App::Cmd.

The superclass App::Cmd defines these methods and functions:

    new(), _bad_command(), _cmd_from_args(), _command(),
    _global_option_processing_params(), _load_default_plugin(),
    _module_pluggable_options(), _plugin_prepare(), _plugins(),
    _prepare_command(), _prepare_default_command(), _usage_text(),
    command_names(), command_plugins(), default_command(),
    execute_command(), get_command(), global_opt_spec(), global_options(),
    plugin_for(), plugin_search_path(), prepare_command(), run(),
    set_global_options(), usage(), usage_desc(), usage_error()

The superclass App::Cmd::ArgProcessor defines these methods and functions:

    _process_args()

BUGS AND LIMITATIONS

Top

No bugs have been reported.

Please report any bugs or feature requests through the web interface at http://rt.cpan.org.

INSTALLATION

Top

See perlmodinstall for information and options on installing Perl modules.

AVAILABILITY

Top

The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit <http://www.perl.com/CPAN/> to find a CPAN site near you. Or see http://search.cpan.org/dist/Dist-Joseki/.

AUTHORS

Top

Marcel Grünauer, <marcel@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright 2007-2009 by the authors.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Dist-Joseki documentation Contained in the Dist-Joseki distribution. 
package Dist::Joseki::Cmd;
use strict;
use warnings;
use YAML 'LoadFile';
use Data::Rmap;
our $VERSION = '0.20';
use base 'App::Cmd';

# The default command base namespace, set by App::Cmd, would be
# Dist::Joseki::Cmd::Command, but if we want to create various CPAN
# distributions for pluggable commands, this path is a bit unwieldy. So we
# create a custom path here.

use constant _default_command_base => 'Dist::Joseki::Command';

sub _module_pluggable_options {
    (   @Devel::SearchINC::inc
        ? (search_dirs => \@Devel::SearchINC::inc)
        : ()
    ),
}

sub config {
    my $app         = shift;
    my $config_file = "$ENV{HOME}/.distrc";
    if (-e $config_file && -r $config_file) {
        $app->{config} ||= LoadFile($config_file);
        rmap { s/^~/$ENV{HOME}/ } $app->{config};
    }
    $app->{config} = {} unless defined $app->{config};
    $app->{config};
}
1;
__END__