File Coverage

blib/lib/Data/Hopen/G/Link.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	33	33	100.0

# Data::Hopen::G::Link - base class for hopen edges
package Data::Hopen::G::Link;
use strict;
use Data::Hopen::Base;

our $VERSION = '0.000017';

use parent 'Data::Hopen::G::Runnable';
use Class::Tiny {
    greedy => 0
};

use Data::Hopen qw(:default UNSPECIFIED);
use Data::Hopen::Util::Data qw(clone);

=head1 NAME

Data::Hopen::G::Link - The base class for all hopen links between ops.

=head1 VARIABLES

=head2 greedy

If set truthy in the C call, the edge will ask for all inputs.

=head1 FUNCTIONS

=head2 run

Copy the inputs to the outputs.

    my $hrOutputs = $op->run($scope)

The output is C<{}> if no inputs are provided.

By default, the output is a copy of the inputs
(see L).

=cut

sub _run {
    my ($self, %args) = getparameters('self', [qw(; phase visitor)], @_);
    return $self->passthrough(-nocontext => 1);
} #run()


=head2 BUILD

Constructor.  Interprets L.

=cut

sub BUILD {
    my ($self, $args) = @_;
    $self->want(UNSPECIFIED) if $args->{greedy};
    #hlog { 'Link::BUILD', Dumper($self), Dumper($args) };
    #hlog { 'Link::BUILD', Dumper($self->scope) };
} #BUILD()

1;
__END__