File Coverage

blib/lib/Build/Hopen/G/Goal.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	30	32	93.7

# Build::Hopen::G::Goal - A named build goal
package Build::Hopen::G::Goal;
use Build::Hopen;
use Build::Hopen::Base;

our $VERSION = '0.000006'; # TRIAL

use parent 'Build::Hopen::G::Op';
use Class::Tiny qw(_passthrough);

# Docs {{{1

=head1 NAME

Build::Hopen::G::Goal - a named goal in a hopen build

=head1 SYNOPSIS

A C is a named build target, e.g., C or C.  The name C
is reserved for the root goal.  Goals usually appear at the end of the build
graph, but this is not required --- Goal nodes can appear anywhere in the
graph.

=head1 FUNCTIONS

=head2 run

Wraps a L's run function.

=cut

# }}}1

sub run {
    my $self = shift or croak 'Need an instance';   # Don't need Build::Hopen::Arrrgs
    return $self->_passthrough->run(@_);            # since this is straight forwarding
}

=head2 BUILD

=cut

sub BUILD {
    my ($self, $args) = @_;
    croak 'Goals must have names' unless $args->{name};
    # TODO refactor out the common code between Goal and PassthroughOp
    # rather than wrapping.
    my $p = hnew(PassthroughOp => ($args->{name} . '_inner'));
    $self->_passthrough($p);
    $self->want($p->want);
    $self->need($p->need);
} #BUILD()


1;
__END__