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__

=head1 NAME

PJVM::Types -

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 INTERFACE