File Coverage

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

Criterion	Covered	Total	%
statement	200	289	69.2
branch	74	126	58.7
condition	11	27	40.7
subroutine	38	38	100.0
pod	29	29	100.0
total	352	509	69.1

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

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_file' => [ '^.+$' ],
    '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 => '' } ),
    'initially_spooled' => 1,
    '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__