DBD-Neo4p
view release on metacpan or search on metacpan
t/lib/Neo4p/Test.pm view on Meta::CPAN
[qw/3 0 good/]
);
sub new {
my $class = shift;
my ($db,$user,$pass) = @_;
REST::Neo4p->set_handle(0);
unless (REST::Neo4p->connected) {
eval {
REST::Neo4p->agent->credentials($db,'',$user,$pass) if defined $user;
REST::Neo4p->connect($db);
};
if (my $e = REST::Neo4p::CommException->caught) {
return
}
elsif ($e = Exception::Class->caught) {
warn (ref $e ? ref($e).":".$e->message : $@);
return;
}
}
( run in 0.228 second using v1.01-cache-2.11-cpan-4d50c553e7e )