File Coverage

blib/lib/CPAN/Smoker/Utils/PerlConfig.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	38	42	90.4

package CPAN::Smoker::Utils::PerlConfig;

use strict;
use warnings;
use Config;
use Hash::Util qw(lock_hash);

our $VERSION = 'v1.0.1'; # VERSION

=pod

=head1 NAME

CPAN::Smoker::Utils::PerlConfig - class representing a perl configuration

=head1 SYNOPSIS

    use CPAN::Smoker::Utils::PerlConfig;

    my $cfg = CPAN::Smoker::Utils::PerlConfig->new;

=head1 DESCRIPTION

This class represents a C configuration in a way that can be used by the
C CLI.

It was created to handle the details of a distroprefs implementation, specially
regarding dealing with C values.

=head1 METHODS

=head2 new

Creates a new instance of this class.

Expects nothing, returns a new instance.

=cut

sub new {
    my $class = shift;
    my $self  = {
        osname   => $Config{osname},
        archname => $Config{archname}
    };
    my $attrib_name = 'useithreads';

    if ( defined( $Config{$attrib_name} ) ) {
        $self->{$attrib_name} = 1;
    }
    else {
        $self->{$attrib_name} = 0;
    }

    bless $self, $class;
    lock_hash( %{$self} );
    return $self;
}

=head2 dump

This methods returns a instance attributes as a hash reference.

This is particulary useful to use with YAML modules C function.

=cut

sub dump {
    my $self        = shift;
    my %attribs     = %{$self};
    my $attrib_name = 'useithreads';

    if ( $self->{$attrib_name} ) {
        $attribs{$attrib_name} = 'define';
    }
    else {
        $attribs{$attrib_name} = '^$';
    }

    return \%attribs;
}

=head1 SEE ALSO

=over

=item *

L

=back

=head1 AUTHOR

Alceu Rodrigues de Freitas Junior, [e-mail]

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 of Alceu Rodrigues de Freitas Junior,
[e-mail]

This file is part of CPAN Smoker Utils.

CPAN Smoker Utils is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

CPAN Smoker Utils is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with CPAN Smoker Utils.  If not, see L.

=cut

1;