view release on metacpan or  search on metacpan

misc/sixpan/JIB/lib/JIB/Installation.pm  view on Meta::CPAN

package JIB::Installation;

use strict;
use warnings;

use JIB::Constants;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative;

use YAML                    qw[LoadFile DumpFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pkg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or return;

    return $dir->subdir( $self->config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

sub alternatives_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_alternatives );
}

=head2 $file = $inst->registered_alternatives_file

=cut

sub registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_registered_alternatives );
}

=head2 $file = $inst->available_file

=cut

sub available_file {
    my $self = shift;