| Subject: | Use Perl subs as EventListeners in the ObservationManager |
It would be nice to be able to:
my $workspace = $session->get_workspace;
my $observation_manager = $workspace->get_observation_manager;
$observation_manager->add_event_listener(
\&do_on_add, $Java::JCR::Observation::Event::NODE_ADDED,
'/foo/bar', 1, undef, undef, 0);
This should result in do_on_add() being called and passed an argument of
type Java::JCR::Observation::EventIterator every time a node was added
under /foo/bar in the repository.