File Coverage

blib/lib/PJVM/Types.pm

Criterion	Covered	Total	%
statement	6	8	75.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	12	66.6

package PJVM::Types;

use strict;
use warnings;

{
    # These are primitive values and their initial value
    my %Default_value = (
        B   => 0,           # int
        C   => chr(0x0000), # char
        D   => 0.0,         # double
        F   => 0.0,         # float
        I   => 0,           # int
        J   => 0,           # long
        S   => 0,           # short
        Z   => 0,           # boolean
    );

    sub default_value_for_signature {
        my $signature = pop;

        return $Default_value{$signature};
    }
}

1;
__END__