File Coverage

blib/lib/Dist/Joseki/DistType/Base.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	12	28	42.8

package Dist::Joseki::DistType::Base;
use warnings;
use strict;
our $VERSION = '0.20';
use base qw(Dist::Joseki::Base);

sub _call_action {
    my ($self, $action) = @_;
    return if $self->{_completed_actions}{$action}++;
    local $self->{action} = $action;
    my $method = "ACTION_$action";
    $self->$method;
}

sub depends_on {
    my ($self, @depend) = @_;
    $self->_call_action($_) for @depend;
}

sub finish {
    my $self = shift;
    $self->ACTION_distclean;
}
1;
__END__