File Coverage

lib/Neo4j/Driver/ResultColumns.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	0	5	0.0
total	46	52	88.4

use 5.010;
use strict;
use warnings;
use utf8;

package Neo4j::Driver::ResultColumns;
# ABSTRACT: Structure definition of Cypher result values
$Neo4j::Driver::ResultColumns::VERSION = '0.38';

# This package is not part of the public Neo4j::Driver API.


use Carp qw(croak);


sub new {
	my ($class, $result) = @_;

	croak 'Result missing columns' unless $result && $result->{columns};
	my $columns = $result->{columns};
	my $column_keys = {};
	for (my $f = scalar(@$columns) - 1; $f >= 0; $f--) {
		$column_keys->{$columns->[$f]} = $f;
	}

	return bless $column_keys, $class;
}


sub key {
	my ($self, $key) = @_;

	# returns the index [!] of the field specified by the given key
	return $self->{$key};
}


sub list {
	my ($self) = @_;
	warnings::warnif deprecated => "Neo4j::Driver::Record->{column_keys} is deprecated";

	# returns the unordered list of keys
	# (prior to version 0.1701, the list was returned in the original order)
	return keys %$self;
}


sub add {
	my ($self, $column) = @_;

	my $index = $self->count;
	$self->{$column} = $index;
	return $index;
}


sub count {
	my ($self) = @_;

	return scalar $self->list;
}


1;