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 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

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			sub db { $_[0]->{db} }
13
14			sub create ($%) {
15			my ($self, %opt) = @_;
16			$self->{id} = $opt{id};
17			} # create
18
19			sub load ($%) {
20			my ($self, %opt) = @_;
21			$self->{id} = $opt{id};
22			} # load
23
24			sub id ($) { $_[0]->{id} }
25
26			sub prop ($) {
27			my $self = shift;
28
29			## TODO: lock
30
31			return $self->{prop} \|\|= do {
32			my $graph_prop_db = $self->db->graph_prop;
33			$graph_prop_db->get_data ($self->id) \|\| {};
34			};
35			} # prop
36
37			sub save_prop ($) {
38			my $self = shift;
39
40			return unless defined $self->{prop};
41
42			## TODO: lock
43
44			my $graph_prop_db = $self->db->graph_prop;
45			$graph_prop_db->set_data ($self->id => $self->prop);
46			} # save_prop
47
48			sub neighbor_ids ($) {
49			my $self = shift;
50
51			return $self->prop->{neighbors} \|\| {};
52			} # neighbor_ids
53
54	wakaba	1.2	sub document_id ($) {
55			my $self = shift;
56
57			return [keys %{$self->prop->{ids} or {}}]->[0];
58			} # document_id
59
60	wakaba	1.1	1;