File Coverage

blib/lib/Daiku.pm

Criterion	Covered	Total	%
statement	60	60	100.0
branch	14	16	87.5
condition	2	3	66.6
subroutine	14	14	100.0
pod	6	7	85.7
total	96	100	96.0

use strict;
use warnings FATAL => 'recursion';

package Daiku;
use 5.008001;
our $VERSION = '1.004';
use Daiku::Registry;
use IPC::System::Simple ();
use Exporter qw(import);

our @EXPORT = our @EXPORT_OK =
    qw(desc task file rule sh namespace engine build);

my %engine_for = ();

sub _engine {
    my ($caller_package) = @_;
    return ($engine_for{$caller_package} ||= Daiku::Registry->new());
}

sub engine {
    return _engine(caller(0));
}

sub desc($) {
    my $desc = shift;

    _engine(caller(0))->temporary_desc($desc);
}

# task 'all' => ['a', 'b'];
# task 'all' => ['a', 'b'] => sub { ... };
sub task($$;&) {
    my %args;
    $args{dst} = shift @_;
    if (ref($_[-1]) eq 'CODE') {
        $args{code} = pop @_;
    }
    if (@_) {
        $args{deps} = shift @_;
        $args{deps} = [$args{deps}] if !ref $args{deps};
    }
    my $engine = _engine(caller(0));
    my $desc = $engine->clear_temporary_desc;
    if (defined $desc) {
        $args{desc} = $desc;
    }
    $args{dst} = join ':', @{ $engine->namespaces }, $args{dst};

    my $task = Daiku::Task->new( %args );
    $engine->register($task);
}

# file 'all' => ['a', 'b'];
# file 'all' => 'a';
# file 'all' => ['a', 'b'] => sub { ... };
sub file($$;&) {
    my %args;
    $args{dst} = shift @_;
    if (ref($_[-1]) eq 'CODE') {
        $args{code} = pop @_;
    }
    if (@_) {
        $args{deps} = shift @_;
        $args{deps} = [$args{deps}] if !ref $args{deps};
    }
    my $file = Daiku::File->new( %args );
    _engine(caller(0))->register($file);
}

# rule '.c' => '.o' => sub { ... };
sub rule($$;&) {
    my %args;
    @args{qw/dst src code/} = @_;
    delete $args{code} unless defined $args{code};
    my $rule = Daiku::SuffixRule->new( %args );
    _engine(caller(0))->register($rule);
}

sub namespace($$) {
    my ($namespace, $code) = @_;

    my $engine = _engine(caller(0));
    push @{ $engine->namespaces }, $namespace;
    $code->();
    pop @{ $engine->namespaces };
}

sub build {
    _engine(caller(0))->build(@_);
}

*sh = *IPC::System::Simple::run;


1;
__END__