SWE/Object/Node.pm

package SWE::Object::Node;
use strict;
use warnings;

sub new ($%) {
  my $class = shift;
  my $self = bless {@_}, $class;

  return $self;
} # new

sub db ($) { $_[0]->{db} }

sub repo ($) { $_[0]->{repo} }

sub create ($%) {
  my ($self, %opt) = @_;
  $self->{id} = $opt{id};
} # create

sub load ($%) {
  my ($self, %opt) = @_;
  $self->{id} = $opt{id};
} # load

sub id ($) { $_[0]->{id} }

sub prop ($) {
  my $self = shift;

  ## TODO: lock
  
  return $self->{prop} ||= do {
    my $graph_prop_db = $self->db->graph_prop;
    $graph_prop_db->get_data ($self->id) || {};
  };
} # prop

sub save_prop ($) {
  my $self = shift;

  return unless defined $self->{prop};
  
  ## TODO: lock
  
  my $graph_prop_db = $self->db->graph_prop;
  $graph_prop_db->set_data ($self->id => $self->prop);
} # save_prop

sub neighbor_ids ($) {
  my $self = shift;
  
  return $self->prop->{neighbors} || {};
} # neighbor_ids

sub document_id ($) {
  my $self = shift;
  
  return [keys %{$self->prop->{ids} or {}}]->[0];
} # document_id

sub neighbor_documents ($) {
  my $self = shift;

  my $db = $self->db;
  my $doc_id = $self->document_id;

  my $graph = $self->repo->graph;

  require SWE::Object::Document;
  return [map {
    SWE::Object::Document->new (db => $db, id => $_)
  } grep { $_ } map {
    $graph->get_node_by_id ($_)->document_id
  } keys %{$self->neighbor_ids}];
} # neighbor_documents

1;
1	package SWE::Object::Node;
2	use strict;
3	use warnings;
4
5	sub new ($%) {
6	my $class = shift;
7	my $self = bless {@_}, $class;
8
9	return $self;
10	} # new
11
12	sub db ($) { $_[0]->{db} }
13
14	sub repo ($) { $_[0]->{repo} }
15
16	sub create ($%) {
17	my ($self, %opt) = @_;
18	$self->{id} = $opt{id};
19	} # create
20
21	sub load ($%) {
22	my ($self, %opt) = @_;
23	$self->{id} = $opt{id};
24	} # load
25
26	sub id ($) { $_[0]->{id} }
27
28	sub prop ($) {
29	my $self = shift;
30
31	## TODO: lock
32
33	return $self->{prop} \|\|= do {
34	my $graph_prop_db = $self->db->graph_prop;
35	$graph_prop_db->get_data ($self->id) \|\| {};
36	};
37	} # prop
38
39	sub save_prop ($) {
40	my $self = shift;
41
42	return unless defined $self->{prop};
43
44	## TODO: lock
45
46	my $graph_prop_db = $self->db->graph_prop;
47	$graph_prop_db->set_data ($self->id => $self->prop);
48	} # save_prop
49
50	sub neighbor_ids ($) {
51	my $self = shift;
52
53	return $self->prop->{neighbors} \|\| {};
54	} # neighbor_ids
55
56	sub document_id ($) {
57	my $self = shift;
58
59	return [keys %{$self->prop->{ids} or {}}]->[0];
60	} # document_id
61
62	sub neighbor_documents ($) {
63	my $self = shift;
64
65	my $db = $self->db;
66	my $doc_id = $self->document_id;
67
68	my $graph = $self->repo->graph;
69
70	require SWE::Object::Document;
71	return [map {
72	SWE::Object::Document->new (db => $db, id => $_)
73	} grep { $_ } map {
74	$graph->get_node_by_id ($_)->document_id
75	} keys %{$self->neighbor_ids}];
76	} # neighbor_documents
77
78	1;