| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | package HH::Unispool::Config::File::Token::Numbered::Network; | 
| 2 |  |  |  |  |  |  |  | 
| 3 | 10 |  |  | 10 |  | 8597 | use 5.006; | 
|  | 10 |  |  |  |  | 38 |  | 
|  | 10 |  |  |  |  | 432 |  | 
| 4 | 10 |  |  | 10 |  | 56 | use base qw( HH::Unispool::Config::File::Token::Numbered ); | 
|  | 10 |  |  |  |  | 28 |  | 
|  | 10 |  |  |  |  | 1727 |  | 
| 5 | 10 |  |  | 10 |  | 57 | use strict; | 
|  | 10 |  |  |  |  | 21 |  | 
|  | 10 |  |  |  |  | 351 |  | 
| 6 | 10 |  |  | 10 |  | 50 | use warnings; | 
|  | 10 |  |  |  |  | 37 |  | 
|  | 10 |  |  |  |  | 338 |  | 
| 7 | 10 |  |  | 10 |  | 51 | use AutoLoader qw(AUTOLOAD); | 
|  | 10 |  |  |  |  | 19 |  | 
|  | 10 |  |  |  |  | 116 |  | 
| 8 | 10 |  |  | 10 |  | 365 | use Error qw(:try); | 
|  | 10 |  |  |  |  | 21 |  | 
|  | 10 |  |  |  |  | 82 |  | 
| 9 | 10 |  |  | 10 |  | 1759 | use HH::Unispool::Config::File::Token qw( :rx :frm ); | 
|  | 10 |  |  |  |  | 25 |  | 
|  | 10 |  |  |  |  | 9962 |  | 
| 10 |  |  |  |  |  |  |  | 
| 11 |  |  |  |  |  |  | # Used by _value_is_allowed | 
| 12 |  |  |  |  |  |  | our %ALLOW_ISA = ( | 
| 13 |  |  |  |  |  |  | 'os' => [ 'HH::Unispool::Config::OS' ], | 
| 14 |  |  |  |  |  |  | ); | 
| 15 |  |  |  |  |  |  |  | 
| 16 |  |  |  |  |  |  | # Used by _value_is_allowed | 
| 17 |  |  |  |  |  |  | our %ALLOW_REF = ( | 
| 18 |  |  |  |  |  |  | ); | 
| 19 |  |  |  |  |  |  |  | 
| 20 |  |  |  |  |  |  | # Used by _value_is_allowed | 
| 21 |  |  |  |  |  |  | our %ALLOW_RX = ( | 
| 22 |  |  |  |  |  |  | 'remote_node_name' => [ '^.+$' ], | 
| 23 |  |  |  |  |  |  | 'server_tcp_port' => [ '^.*$' ], | 
| 24 |  |  |  |  |  |  | 'transfer_size' => [ '^\d*$' ], | 
| 25 |  |  |  |  |  |  | 'transfer_time_out' => [ '^\d*$' ], | 
| 26 |  |  |  |  |  |  | ); | 
| 27 |  |  |  |  |  |  |  | 
| 28 |  |  |  |  |  |  | # Used by _value_is_allowed | 
| 29 |  |  |  |  |  |  | our %ALLOW_VALUE = ( | 
| 30 |  |  |  |  |  |  | 'protocol' => { | 
| 31 |  |  |  |  |  |  | 'LPD' => 1, | 
| 32 |  |  |  |  |  |  | 'PJL' => 1, | 
| 33 |  |  |  |  |  |  | 'TCP' => 1, | 
| 34 |  |  |  |  |  |  | 'XPP' => 1, | 
| 35 |  |  |  |  |  |  | }, | 
| 36 |  |  |  |  |  |  | ); | 
| 37 |  |  |  |  |  |  |  | 
| 38 |  |  |  |  |  |  | # Package version | 
| 39 |  |  |  |  |  |  | our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/; | 
| 40 |  |  |  |  |  |  |  | 
| 41 |  |  |  |  |  |  | 1; | 
| 42 |  |  |  |  |  |  |  | 
| 43 |  |  |  |  |  |  | __END__ |