—

              
package PNI::Slot::Out;
use parent 'PNI::Slot';
use strict;
use PNI::Error;
sub new {
    my $self = shift->SUPER::new(@_)
      or return PNI::Error::unable_to_create_item;
    my $arg = {@_};
    $self->add( edges => {} );
    return $self
}
sub add_edge {
    my $self = shift;
    my $edge = shift
      or return PNI::Error::missing_required_argument;
    $edge->isa('PNI::Edge')
      or return PNI::Error::invalid_argument_type;
    $self->get('edges')->{ $edge->id } = $edge;
}
sub del_edge {
    my $self = shift;
    my $edge = shift
      or return PNI::Error::missing_required_argument;
    delete $self->get('edges')->{ $edge->id };
}
# return @edges : PNI::Edge
sub get_edges { values %{ shift->get('edges') }; }
sub is_connected { shift->get_edges ? 1 : 0 }
# return $edge : PNI::Edge
sub join_to {
    my $self = shift;
    # input_slot arg is required
    my $input_slot = shift
      or return PNI::Error::missing_required_argument;
    return PNI::Edge->new( source => $self, target => $input_slot )
}
1
__END__
HideShow 22 lines of Pod
=head1 NAME
PNI::Slot::Out - output slot
=head1 ATTRIBUTES
=head2 C<edges>
=head1 METHODS
=head2 C<add_edge>
=head2 C<del_edge>
=head2 C<get_edges>
=head2 C<is_connected>
=head2 C<join_to>
=cut