File Coverage

lib/Neo4j/Types/Path.pm
Criterion Covered Total %
statement 22 22 100.0
branch 6 6 100.0
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 37 37 100.0


line stmt bran cond sub pod time code
1 2     2   80110 use strict;
  2         9  
  2         59  
2 2     2   17 use warnings;
  2         4  
  2         97  
3              
4             package Neo4j::Types::Path;
5             # ABSTRACT: Represents a directed sequence of relationships between two nodes
6             $Neo4j::Types::Path::VERSION = '1.00';
7              
8 2     2   30 use Carp qw(croak);
  2         3  
  2         515  
9              
10              
11             sub elements {
12 6     6 1 4445 my ($self) = @_;
13            
14 6 100       36 croak 'elements() in scalar context not supported' unless wantarray;
15 4         13 return @$self;
16             }
17              
18              
19             sub nodes {
20 6     6 1 4534 my ($self) = @_;
21            
22 6 100       64 croak 'nodes() in scalar context not supported' unless wantarray;
23 4         5 my $i = 0;
24 4         10 return grep { ++$i & 1 } @$self;
  9         20  
25             }
26              
27              
28             sub relationships {
29 6     6 1 3994 my ($self) = @_;
30            
31 6 100       32 croak 'relationships() in scalar context not supported' unless wantarray;
32 4         6 my $i = 0;
33 4         8 return grep { $i++ & 1 } @$self;
  9         19  
34             }
35              
36              
37             1;
38              
39             __END__