The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

FIBO / PNI-0.19 / lib / PNI / Edge.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
—
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

              
package PNI::Edge;
use parent 'PNI::Item';
use strict;
use PNI::Error;
sub new {
    my $self = shift->SUPER::new;
    my $arg  = {@_};
    # $source is not required but should be a PNI::Slot::Out
    my $source = $arg->{source};
    if ( defined $source and not $source->isa('PNI::Slot::Out') ) {
        return PNI::Error::invalid_argument_type;
    }
    $self->add( source => $source );
    # $target is not required but should be a PNI::Slot::In
    my $target = $arg->{target};
    if ( defined $target and not $target->isa('PNI::Slot::In') ) {
        return PNI::Error::invalid_argument_type;
    }
    $self->add( target => $target );
    defined $source and $source->add_edge($self);
    defined $target and $target->add_edge($self);
    # Finally, if both source and target are defined emulate a task method
    # TODO this could be inside an init method
    if ( defined $source and defined $target ) {
        $target->set_data( $source->get_data );
    }
    return $self
}
# return $source : PNI::Slot::Out
sub get_source { shift->get('source') }
# return $target : PNI::Slot::In
sub get_target { shift->get('target') }
sub task {
    my $self = shift;
    # Nothing to do if there is no source.
    my $source = $self->get_source or return 1;
    # Nothing to do if there is no target.
    my $target = $self->get_target or return 1;
    # This is Edge's task: pass data from target to source.
    $target->set_data( $source->get_data );
    return 1
}
1
__END__
=head1 NAME
PNI::Edge - is used to connect two slots
=head1 SYNOPSIS
    # connects the output of a node to the input of another node
    my $edge = PNI::Edge->new( source => $output, target => $input );
    my $not_connected_edge = PNI::Edge->new;
=head1 METHODS
=head2 C<get_source>
    my $output = $edge->get_source;
=head2 C<get_target>
    my $input = $edge->get_target;
=head2 C<task>
    $edge->task
If edge is connected, pass data from target to source.
=cut