File Coverage

blib/lib/HH/Unispool/Config/Entry/RemoteSystem/8.pm

Criterion	Covered	Total	%
statement	132	174	75.8
branch	45	86	52.3
condition	11	27	40.7
subroutine	23	23	100.0
pod	15	15	100.0
total	226	325	69.5

package HH::Unispool::Config::Entry::RemoteSystem::8;

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

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

# Used by _value_is_allowed
our %ALLOW_REF = (
);

# Used by _value_is_allowed
our %ALLOW_RX = (
    'block_delay' => [ '^\d*$' ],
    'remote_node_name' => [ '^[\w\.]+$' ],
    'transfer_size' => [ '^\d*$' ],
    'transfer_time_out' => [ '^\d*$' ],
);

# Used by _value_is_allowed
our %ALLOW_VALUE = (
);

# Used by _initialize
our %DEFAULT_VALUE = (
    'block_delay' => 0,
    'initially_open' => 1,
    'transfer_size' => 4098,
    'transfer_time_out' => 180,
);

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

1;

__END__