File Coverage

blib/lib/HH/Unispool/Config/Entry/System.pm

Criterion	Covered	Total	%
statement	404	514	78.6
branch	154	260	59.2
condition	13	27	48.1
subroutine	54	54	100.0
pod	45	45	100.0
total	670	900	74.4

package HH::Unispool::Config::Entry::System;

use 5.006;
use base qw( HH::Unispool::Config::Entry );
use strict;
use warnings;
use AutoLoader qw(AUTOLOAD);
use Error qw(:try);
use HH::Unispool::Config::DateFormat;

# Used by _value_is_allowed
our %ALLOW_ISA = (
    'date_format' => [ 'HH::Unispool::Config::DateFormat' ],
    'device' => [ 'HH::Unispool::Config::Entry::Device' ],
    'os' => [ 'HH::Unispool::Config::OS' ],
    'remote_system' => [ 'HH::Unispool::Config::Entry::RemoteSystem' ],
);

# Used by _value_is_allowed
our %ALLOW_REF = (
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'central_console_node' => [ '^.+$' ],
    'default_printer' => [ '^.+$' ],
    'local_system_name' => [ '^.+$' ],
    'maximum_delay_time' => [ '^\d+$' ],
    'maximum_print_file_space' => [ '^\d+$' ],
    'maximum_save_file_space' => [ '^\d+$' ],
    'network_name' => [ '^.+$' ],
    'save_groups' => [ '^\d*$' ],
    'save_time_in_days' => [ '^\d+$' ],
    'start_time_clean_job_hour' => [ '^\d+$' ],
    'start_time_clean_job_minute' => [ '^\d+$' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
    'type' => {
        'bcs' => 1,
        'cc' => 1,
        'cs' => 1,
    },
);

# Used by _initialize
our %DEFAULT_VALUE = (
    'central_console_node' => 'SYSLOG',
    'clean_on_weekdays_only' => 0,
    # See _initialize for 'date_format' default value
    'default_printer' => 'lp',
    'diff_number' => 0,
    'maximum_delay_time' => 15,
    'maximum_print_file_space' => 0,
    'maximum_save_file_space' => 0,
    'save_groups' => '',
    'save_time_in_days' => 3,
    'start_time_clean_job_hour' => 0,
    'start_time_clean_job_minute' => 0,
    'type' => 'cc',
);

# Package version
our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;

1;

__END__