| Java-JCR documentation | Contained in the Java-JCR distribution. |
Java::JCR::Observation::EventListener - Perl wrapper for javax.jcr.observation.EventListener
This is an automatically generated package wrapping javax.jcr.observation.EventListener with a nice Perlish API.
For full documentation of what this class does, see the Java API documentation: http://www.day.com/maven/jsr170/javadocs/jcr-1.0/javax/jcr/observation/EventListener.html
The deviations from the API documentation include the following:
camelCase() to Perl-style lower_case().
getName() in the Java API, it will be named get_name() in this API. As another example, nextEventListener() in the Java API will be next_event_listener() in this API. Java::JCR, http://www.day.com/maven/jsr170/javadocs/jcr-1.0/javax/jcr/observation/EventListener.html
Andrew Sterling Hanenkamp, <hanenkamp@cpan.org>
Copyright 2006 Andrew Sterling Hanenkamp <hanenkamp@cpan.org>. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
| Java-JCR documentation | Contained in the Java-JCR distribution. |
package Java::JCR::Observation::EventListener; # This code was automatically generated by a combination of the # JCRPackageGenerator.java and package-generator.pl programs. These are both # distributed in the inc/ directory of the Java-JCR distribution. You should # be able to find the latest Java-JCR distribution at: # # http://search.cpan.org/~hanenkamp/Java-JCR/ # use strict; use warnings; use base qw( Java::JCR::Base ); our $VERSION = '0.07'; use Carp; use Inline ( Java => 'STUDY', STUDY => [], ); use Inline::Java qw( study_classes ); study_classes(['javax.jcr.observation.EventListener'], 'Java::JCR'); sub on_event { my $self = shift; my @args = Java::JCR::Base::_process_args(@_); my $result = eval { $self->{obj}->onEvent(@args) }; if ($@) { my $e = Java::JCR::Exception->new($@); croak $e } return $result; } 1; __END__