File Coverage

blib/lib/Pixie/ObjectGraph.pm

Criterion	Covered	Total	%
statement	5	20	25.0
branch	0	4	0.0
condition			n/a
subroutine	2	5	40.0
pod	0	4	0.0
total	7	33	21.2

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;