File Coverage

blib/lib/HH/Unispool/Config/Entry/Device/6.pm

Criterion	Covered	Total	%
statement	203	288	70.4
branch	78	124	62.9
condition	14	27	51.8
subroutine	38	38	100.0
pod	29	29	100.0
total	362	506	71.5

package HH::Unispool::Config::Entry::Device::6;

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

# Used by _value_is_allowed
our %ALLOW_ISA = (
    'execution_priority' => [ 'HH::Unispool::Config::ExecPri' ],
);

# Used by _value_is_allowed
our %ALLOW_REF = (
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'block_delay' => [ '^\d*$' ],
    'connect_retry' => [ '^\d+$' ],
    'device_password' => [ '^.*$' ],
    'header_name' => [ '^.*$' ],
    'profile_name' => [ '^.*$' ],
    'remote_node_name' => [ '^.+$' ],
    'server_tcp_port' => [ '^.*$' ],
    'trailer_name' => [ '^.*$' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
    'protocol' => {
        'LPD' => 1,
        'PJL' => 1,
        'TCP' => 1,
        'XPP' => 1,
    },
);

# Used by _initialize
our %DEFAULT_VALUE = (
    'block_delay' => 0,
    'connect_retry' => 0,
    'execution_priority' => HH::Unispool::Config::ExecPri->new( { execution_priority => '' } ),
    'initially_spooled' => 1,
    'networkwide' => 1,
    'protocol' => 'TCP',
    'save_printfile' => 0,
    'server_tcp_port' => 9100,
);

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

1;

__END__