File Coverage

lib/Neo4j/Driver/ServerInfo.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	4	100.0
condition			n/a
subroutine	11	11	100.0
pod	3	5	100.0
total	49	51	100.0

use v5.14;
use warnings;

package Neo4j::Driver::ServerInfo 1.02;
# ABSTRACT: Provides Neo4j server address and version


use Carp qw(croak);
our @CARP_NOT = qw(Neo4j::Driver::Session);
use Feature::Compat::Try;
use URI 1.25;


sub new {
	# uncoverable pod (private method)
	my ($class, $server_info) = @_;

	# don't store the full URI here - it may contain auth credentials
	$server_info->{uri} = URI->new( $server_info->{uri} )->host_port;

	return bless $server_info, $class;
}


sub address  { shift->{uri} }
sub agent    { shift->{version} }


sub protocol_version {
	shift->{protocol}
}


sub version {
	# uncoverable pod (see agent)
	warnings::warnif deprecated => "version() in Neo4j::Driver::ServerInfo is deprecated; use agent() instead";
	&agent;
}


# discover default database on Neo4j >= 4 using the given driver config
sub _default_database {
	my ($self, $driver) = @_;

	my $database = $self->{default_database};
	return $database if defined $database;

	return if $self->{version} =~ m{^Neo4j/[123]\.};
	try {
		my $sys = $driver->session(database => 'system');
		$database = $sys->run('SHOW DEFAULT DATABASE')->single->get('name');
	}
	catch ($e) {
		croak sprintf
			"%sSession creation failed because the default database of %s at %s could not be determined",
			$e, $self->{version}, $self->{uri};
	}
	return $self->{default_database} = $database;
}


1;

__END__