Java::JCR::Exception - Wrapper for repository exceptions

Java-JCR documentation Contained in the Java-JCR distribution.

Index

Code Index:

NAME

Top

Java::JCR::Exception - Wrapper for repository exceptions

SYNOPSIS

Top

  eval {
      my $node = $root->add_node('foo', 'nt:unstructured');
  };

  if ($@) {
      print STDERR "Failed to add node foo: $@\n";
  }

DESCRIPTION

Top

This class is used to make the exceptions thrown from the Java code work more nicely in Perl. Primarily, this involves performing nicer stringification than is provided by Inline::Java.

AUTHOR

Top

Andrew Sterling Hanenkamp, <hanenkamp@cpan.org>

LICENSE AND COPYRIGHT

Top

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::Exception;

use strict;
use warnings;

our $VERSION = '0.04';


use overload 
    '""' => sub {
        my $self = shift;
        return $self->{obj}->toString;
    },
    'eq' => sub {
        my $self = shift;
        my $obj = shift;

        return "$self->{obj}" eq "$obj";
    };

sub new {
    my $class = shift;
    my $exception = shift;

    return bless {
        obj => $exception,
    }, $class;
}


1