File Coverage

blib/lib/Test/Kantan/Suite.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	2	0.0
total	28	35	80.0

package Test::Kantan::Suite;
use strict;
use warnings;
use utf8;
use 5.010_001;

use Moo;

has title => ( is => 'ro', required => 1 );
has root => ( is => 'ro' );
has parent => ( is => 'ro' );
has triggers => ( is => 'ro', default => sub { +{} } );

no Moo;

sub call_trigger {
    my ($self, $trigger_name) = @_;
    for my $trigger (@{$self->{triggers}->{$trigger_name}}) {
        $trigger->();
    }
}

sub add_trigger {
    my ($self, $trigger_name, $code) = @_;
    push @{$self->{triggers}->{$trigger_name}}, $code;
}

1;