File Coverage

blib/lib/ArangoDB2/Edge.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 8 37.5
pod 3 3 100.0
total 15 27 55.5


line stmt bran cond sub pod time code
1             package ArangoDB2::Edge;
2              
3 21     21   85 use strict;
  21         35  
  21         659  
4 21     21   89 use warnings;
  21         25  
  21         510  
5              
6 21         3580 use base qw(
7             ArangoDB2::Document
8 21     21   76 );
  21         22  
9              
10              
11              
12             # create
13             #
14             # override ArangoDB2::Document create so that we can add from
15             # and to values to the request
16             sub create
17             {
18 0     0 1   my($self, $data, $args) = @_;
19             # process args
20 0           $args = $self->_build_args($args, ['from','to']);
21             # call ArangoDB2::Document::create
22 0           return $self->SUPER::create($data, $args);
23             }
24              
25             # from
26             #
27             # get/set from
28 0     0 1   sub from { shift->_get_set_id('from', @_) }
29              
30             # to
31             #
32             # get/set to
33 0     0 1   sub to { shift->_get_set_id('to', @_) }
34              
35             # _class
36             #
37             # internal name for class
38 0     0     sub _class { 'edge' }
39              
40             # _register
41             #
42             # internal name for object index
43 0     0     sub _register { 'edges' }
44              
45             1;
46              
47             __END__