/usr/local/CPAN/Pixie/Pixie/ObjectGraph.pm

• package Pixie::ObjectGraph
  • new
  • add_edge
  • neighbours
  • add_graph
• EOF

package Pixie::ObjectGraph;

use strict;

sub new {
  my $proto = shift;
  return bless {}, $proto;
}

sub add_edge {
  my $self = shift;
  my($source => $dest) = @_;

  push @{$self->{$source}}, $dest;
  return $self;
}

sub neighbours {
  my $self = shift;
  my $source = shift;
  my @retary = exists($self->{$source}) ? @{$self->{$source}} : ();
  wantarray ? @retary : [@retary];
}

sub add_graph {
  my $self = shift;
  my $other_graph = shift;

  @{$self}{keys %$other_graph} = values %$other_graph;
  return $self;
}

1;