File Coverage

blib/lib/Farly/ASA/ICMPFormatter.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	3	66.6
total	20	21	95.2

package Farly::ASA::ICMPFormatter;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.26';

our $String_To_Int = {
    "echo-reply"           => 0,
    "unreachable"          => 3,
    "source-quench"        => 4,
    "redirect"             => 5,
    "alternate-address"    => 6,
    "echo"                 => 8,
    "router-advertisement" => 9,
    "router-solicitation"  => 10,
    "time-exceeded"        => 11,
    "parameter-problem"    => 12,
    "timestamp-request"    => 13,
    "timestamp-reply"      => 14,
    "information-request"  => 15,
    "information-reply"    => 16,
    "mask-request"         => 17,
    "mask-reply"           => 18,
    "traceroute"           => 30,
    "conversion-error"     => 31,
    "mobile-redirect"      => 32,
};

our $Int_To_String = { reverse %$String_To_Int };

sub new {
    return bless {}, $_[0];
}

sub as_string {
    return $Int_To_String->{ $_[1] };
}

sub as_integer {
    return $String_To_Int->{ $_[1] };
}

1;
__END__