File Coverage

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

Criterion	Covered	Total	%
statement	176	251	70.1
branch	64	108	59.2
condition	10	24	41.6
subroutine	34	34	100.0
pod	25	25	100.0
total	309	442	69.9

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

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 = (
    'buffer_size' => [ '^\d+$' ],
    'device_password' => [ '^.*$' ],
    'header_name' => [ '^.*$' ],
    'page_length' => [ '^\d+$' ],
    'page_width' => [ '^\d+$' ],
    'profile_name' => [ '^.*$' ],
    'trailer_name' => [ '^.*$' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
);

# Used by _initialize
our %DEFAULT_VALUE = (
    'buffer_size' => 2048,
    'execution_priority' => HH::Unispool::Config::ExecPri->new( { execution_priority => '' } ),
    'networkwide' => 1,
    'page_length' => 66,
    'page_width' => 132,
    'save_printfile' => 0,
    'unispool_header' => 0,
);

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

1;

__END__