javax.jcr.Node:
  set_property: |-
    sub set_property {
        my $self = shift;
        my ($name, $value) = @_;

        my @args;
        if (Java::JCR::Calendar::_perl_date_has_conversion($value)) {
            @args = ($name, Java::JCR::Calendar::_perl_date_to_java_calendar($value));
        }

        else {
            @args = Java::JCR::Base::_process_args(@_);
        }

        my $result = eval { $self->{obj}->setProperty(@args) };
        if ($@) { my $e = Java::JCR::Exception->new($@); croak $e }

        return Java::JCR::Base::_process_return($result, 'javax.jcr.Property', 'Java::JCR::Property');
    }

javax.jcr.Property:
  get_date: |-
    sub get_date {
        my ($self, $class) = @_;

        my $result = $self->{obj}->getDate();

        return Java::JCR::Calendar::_java_calendar_to_perl_date($result, $class);
    }

javax.jcr.Session:
  import_xml: |-
    sub import_xml {
        my $self = shift;
        my $path = shift;
        my $handle = shift;
        my $behavior = shift;

        my $input_stream = Java::JCR::JavaUtils::input_stream($handle);

        $self->{obj}->importXML($path, $input_stream, $behavior);
    }
 
javax.jcr.SimpleCredentials: 
  new: |-
    sub new {
        my $class = shift;
        my $user = shift;
        my $password = shift;

        my $charArray = Java::JCR::PerlUtils->charArray($password);
        
        return bless {
            obj => Java::JCR::javax::jcr::SimpleCredentials->new($user, $charArray),
        }, $class;
    }

javax.jcr.Value:
  get_date: |-
    sub get_date {
        my ($self, $class) = @_;

        my $result = $self->{obj}->getDate();

        return Java::JCR::Calendar::_java_calendar_to_perl_date($result, $class);
    }

javax.jcr.ValueFactory:
  create_value: |-
    sub create_value {
        my $self = shift;
        my ($value) = @_;

        my @args;
        if (Java::JCR::Calendar::_perl_date_has_conversion($value)) {
            @args = (Java::JCR::Calendar::_perl_date_to_java_calendar($value));
        }

        else {
            @args = Java::JCR::Base::_process_args(@_);
        }

        my $result = eval { $self->{obj}->createValue(@args) };
        if ($@) { my $e = Java::JCR::Exception->new($@); croak $e }

        return Java::JCR::Base::_process_return($result, 'javax.jcr.Value', 'Java::JCR::Value');
    }