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	wakaba	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	wakaba	1.4	sub db ($) { $_[0]->{db} }
13
14			sub repo ($) { $_[0]->{repo} }
15	wakaba	1.1
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	wakaba	1.2	sub document_id ($) {
57			my $self = shift;
58
59			return [keys %{$self->prop->{ids} or {}}]->[0];
60			} # document_id
61
62	wakaba	1.3	sub neighbor_documents ($) {
63			my $self = shift;
64
65			my $db = $self->db;
66			my $doc_id = $self->document_id;
67	wakaba	1.4
68			my $graph = $self->repo->graph;
69	wakaba	1.3
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	wakaba	1.1	1;