File Coverage

blib/lib/Farly/ASA/ProtocolFormatter.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Farly::ASA::ProtocolFormatter;
2            
3 11     11   24063 use 5.008008;
  11         39  
  11         443  
4 11     11   58 use strict;
  11         24  
  11         306  
5 11     11   56 use warnings;
  11         24  
  11         2327  
6            
7             our $VERSION = '0.26';
8            
9             our $String_To_Int = {
10             "ah" => 51,
11             "eigrp" => 88,
12             "esp" => 50,
13             "ipsec" => 50,
14             "gre" => 47,
15             "pptp" => 47,
16             "icmp" => 1,
17             "icmp6" => 58,
18             "igmp" => 2,
19             "igrp" => 9,
20             "ip" => 0,
21             "ipinip" => 4,
22             "nos" => 94,
23             "ospf" => 89,
24             "pcp" => 108,
25             "pim" => 103,
26             "snp" => 109,
27             "tcp" => 6,
28             "udp" => 17,
29             };
30            
31             our $Int_To_String = { reverse %$String_To_Int };
32            
33             sub new {
34 15     15 1 133 return bless {}, $_[0];
35             }
36            
37             sub as_string {
38 17     17 1 982 return $Int_To_String->{ $_[1] };
39             }
40            
41             sub as_integer {
42 328     328 1 2261 return $String_To_Int->{ $_[1] };
43             }
44            
45             1;
46             __END__