File Coverage

blib/lib/Config/Model/Backend/Xorg.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	3	3	100.0
total	44	46	95.6

#
# This file is part of Config-Model-Xorg
#
# This software is Copyright (c) 2007-2018 by Dominique Dumont.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package Config::Model::Backend::Xorg ;
$Config::Model::Backend::Xorg::VERSION = '1.114';

use Mouse ;
use Carp ;
use Log::Log4perl qw(get_logger :levels);

extends 'Config::Model::Backend::Any';

with 'Config::Model::Backend::Xorg::Read';
with 'Config::Model::Backend::Xorg::Write';

my $logger = get_logger("Backend::Xorg") ;

sub annotation { return 0 ;}

sub read {
    my $self = shift ;
    my %args = @_ ;

    # args are:
    # object     => $obj,         # Config::Model::Node object
    # root       => './my_test',  # fake root directory, userd for tests
    # config_dir => /etc/foo',    # absolute path
    # file       => 'foo.conf',   # file name
    # file_path  => './my_test/etc/foo/foo.conf'
    # io_handle  => $io           # IO::File object
    # check      => yes|no|skip

    return 0 unless defined $args{io_handle} ; # no file to read
    my $check = $args{check} || 'yes' ;

    my @lines ;

    my $idx = 0 ;
    # store also input line number
    foreach my $line ($args{file_path}->lines_utf8) {
        $line =~ s/#.*$//;
        $line =~ s/^\s*//;
        $line =~ s/\s+$//;
        push @lines, [ "line ".$idx++ ,$line ]
    }
    my @raw_xorg_conf = grep { $_->[1] !~ /^\s*$/ ;} @lines;
    chomp @raw_xorg_conf ;

    #print Dumper(\@raw_xorg_conf); exit ;
    my $data = parse_raw_xorg(\@raw_xorg_conf) ;

    #return $data if $test ;
    #print Dumper($data); exit ;

    parse_all($data, $args{object}) ;
    return 1;
}

sub write {
    my $self = shift ;
    my %args = @_ ;

    # args are:
    # object     => $obj,         # Config::Model::Node object
    # root       => './my_test',  # fake root directory, userd for tests
    # config_dir => /etc/foo',    # absolute path
    # file       => 'foo.conf',   # file name
    # file_path  => './my_test/etc/foo/foo.conf'
    # io_handle  => $io           # IO::File object
    # check      => yes|no|skip

    my $a_ref = write_all( $args{object} ) ;
    $args{file_path}->spew_utf8( map {"$_\n"} @$a_ref )  ;

    return 1;
}


1;

__END__