File Coverage

lib/Neo4j/Types/Relationship.pm
Criterion Covered Total %
statement 20 20 100.0
branch 4 4 100.0
condition n/a
subroutine 8 8 100.0
pod 6 6 100.0
total 38 38 100.0


line stmt bran cond sub pod time code
1 2     2   75586 use strict;
  2         9  
  2         57  
2 2     2   10 use warnings;
  2         3  
  2         503  
3              
4             package Neo4j::Types::Relationship;
5             # ABSTRACT: Describes a relationship from a Neo4j graph
6             $Neo4j::Types::Relationship::VERSION = '1.00';
7              
8              
9             sub get {
10 6     6 1 16 my ($self, $property) = @_;
11            
12 6 100       21 return unless defined $self->{properties};
13 5         23 return $self->{properties}->{$property};
14             }
15              
16              
17             sub id {
18 3     3 1 3830 my ($self) = @_;
19            
20 3         19 return $self->{id};
21             }
22              
23              
24             sub type {
25 2     2 1 6 my ($self) = @_;
26            
27 2         8 return $self->{type};
28             }
29              
30              
31             sub start_id {
32 2     2 1 6 my ($self) = @_;
33            
34 2         8 return $self->{start};
35             }
36              
37              
38             sub end_id {
39 2     2 1 5 my ($self) = @_;
40            
41 2         8 return $self->{end};
42             }
43              
44              
45             sub properties {
46 3     3 1 8 my ($self) = @_;
47            
48 3 100       11 return {} unless defined $self->{properties};
49 2         5 return $self->{properties};
50             }
51              
52              
53             1;
54              
55             __END__