File Coverage

blib/lib/Daiku/Registry.pm

Criterion	Covered	Total	%
statement	51	52	98.0
branch	11	12	91.6
condition			n/a
subroutine	13	13	100.0
pod	2	3	66.6
total	77	80	96.2

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

use Daiku::Task;
use Daiku::File;
use Daiku::SuffixRule;

use Parse::CommandLine ();
use Tie::IxHash;

package Daiku::Registry;
use Mouse;

has tasks => (
    is => 'rw',
    isa => 'HashRef',
    default => sub { tie my %h, "Tie::IxHash"; \%h },
);

has temporary_desc => (
    is      => 'rw',
    isa     => 'Str',
    clearer => 'clear_temporary_desc',
);

has namespaces => (
    is      => 'rw',
    isa     => 'ArrayRef',
    default => sub { [] },
);

sub register {
    my ($self, $task) = (shift, shift);
    my $orig = $self->find_task($task->dst);
    $task->merge($orig) if $orig;
    $self->tasks->{$task->dst} = $task;
    $task->registry($self);
}

sub build {
    my ($self, $target) = @_;
    if (!defined $target) {
        die "Missing target\n";
    }

    # parsing 'task_name[arg1 arg2]'
    ($target, my $argument) = $target =~ /\A([^\[]+)(?:\[(.*)\])?\z/ms;
    my @args;
       @args = Parse::CommandLine::parse_command_line($argument) if defined $argument;

    my $task = $self->find_task($target);
    if ($task) {
        return $task->build($target, @args);
    } else {
        die "There is no rule to build '$target'\n";
    }
}

sub find_task {
    my ($self, $target) = @_;
    for my $task (values %{$self->{tasks}}) {
        return $task if $task->match($target);
    }
    if ( -f $target ) {
        return Daiku::File->new( dst => $target );
    }
    return undef;
}

no Mouse; __PACKAGE__->meta->make_immutable;

__END__