File Coverage

blib/lib/Parse/PlainConfig/Settings.pm

Criterion	Covered	Total	%
statement	48	48	100.0
branch			n/a
condition			n/a
subroutine	20	20	100.0
pod	11	11	100.0
total	79	79	100.0

# Parse::PlainConfig::Settings -- Settings Class
#
# (c) 2015, Arthur Corliss
#
# $Id: lib/Parse/PlainConfig/Settings.pm, 3.04 2017/02/06 02:58:13 acorliss Exp $
#
#    This software is licensed under the same terms as Perl, itself.
#    Please see http://dev.perl.org/licenses/ for more information.
#
#####################################################################

#####################################################################
#
# Environment definitions
#
#####################################################################

package Parse::PlainConfig::Settings;

use 5.008;

use strict;
use warnings;
use vars qw($VERSION);

($VERSION) = ( q$Revision: 3.04 $ =~ /(\d+(?:\.\d+)+)/sm );

use Paranoid;
use Paranoid::Debug;
use Parse::PlainConfig::Constants qw(:all);
use Class::EHierarchy qw(:all);
use vars qw(@ISA @_properties @_methods);

@ISA = qw(Class::EHierarchy);

@_properties = (
    [ CEH_PUB | CEH_SCALAR, 'tab stop',       DEFAULT_TAB ],
    [ CEH_PUB | CEH_SCALAR, 'subindentation', DEFAULT_SUBI ],
    [ CEH_PUB | CEH_SCALAR, 'comment',        DEFAULT_CMMT ],
    [ CEH_PUB | CEH_SCALAR, 'delimiter',      DEFAULT_PDLM ],
    [ CEH_PUB | CEH_SCALAR, 'list delimiter', DEFAULT_LDLM ],
    [ CEH_PUB | CEH_SCALAR, 'hash delimiter', DEFAULT_HDLM ],
    [ CEH_PUB | CEH_SCALAR, 'here doc',       DEFAULT_HDOC ],
    [ CEH_PUB | CEH_HASH,   'property types' ],
    [ CEH_PUB | CEH_HASH,   'property regexes' ],
    [ CEH_PUB | CEH_HASH,   'prototypes' ],
    [ CEH_PUB | CEH_HASH,   'prototype regexes' ],
    [ CEH_PUB | CEH_HASH,   'prototype registry' ],
    [ CEH_PUB | CEH_SCALAR, 'error' ],
    );

#####################################################################
#
# Module code follows
#
#####################################################################

sub tabStop {
    my $obj = shift;
    return $obj->get('tab stop');
}

sub subindentation {
    my $obj = shift;
    return $obj->get('subindentation');
}

sub comment {
    my $obj = shift;
    return $obj->get('comment');
}

sub delimiter {
    my $obj = shift;
    return $obj->get('delimiter');
}

sub listDelimiter {
    my $obj = shift;
    return $obj->get('list delimiter');
}

sub hashDelimiter {
    my $obj = shift;
    return $obj->get('hash delimiter');
}

sub hereDoc {
    my $obj = shift;
    return $obj->get('here doc');
}

sub propertyTypes {
    my $obj = shift;
    return $obj->get('property types');
}

sub propertyRegexes {
    my $obj = shift;
    return $obj->get('property regexes');
}

sub prototypes {
    my $obj = shift;
    return $obj->get('prototypes');
}

sub prototypeRegexes {
    my $obj = shift;
    return $obj->get('prototype regexes');
}

1;

__END__