File Coverage

blib/lib/XAS/Lib/Mixins/Configs.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	1	100.0
total	13	26	50.0

package XAS::Lib::Mixins::Configs;

our $VERSION = '0.01';

use Try::Tiny;
use Config::IniFiles;

use XAS::Class
  debug   => 0,
  version => $VERSION,
  base    => 'XAS::Base',
  utils   => ':validation dotid compress',
  mixins  => 'load_config',
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub load_config {
    my $self = shift;
    my ($filename, $handle) = validate_params(\@_, [
        { optional => 1, isa => 'Badger::Filesystem::File', default => $self->env->cfg_file },
        { optional => 1, default => 'cfg' },
    ]);

    # really... using carp() as an exception handler is lame

    local $SIG{__WARN__} = sub {
        my $error = shift;

        my ($reason) = $error =~ /(.*)at\s+/;

        $self->throw_msg(
            dotid($self->class) . '.load_config.badini',
            'config_badini',
            $filename->path,
            $reason,
        );

    };

    $self->{$handle} = Config::IniFiles->new(-file => $filename->path);

    unless (defined($self->{$handle})) {

        $self->throw_msg(
            dotid($self->class) . '.load_config.badini',
            'config_badini',
            $filename->path,
            compress(join('', @Config::IniFiles::errors)),
        );

    }

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

1;

__END__