File Coverage

blib/lib/Test/Workflow/Meta.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	4	0.0
total	40	45	88.8

package Test::Workflow::Meta;
use strict;
use warnings;

use Test::Workflow::Layer;
use Test::Builder;

use Fennec::Util qw/accessors/;

accessors qw{
    test_class build_complete root_layer test_run test_wait test_sort ok diag
    skip todo_start todo_end control_store
};

sub new {
    my $class = shift;
    my ($test_class) = @_;

    my $tb = "tb";

    my $root_layer = Test::Workflow::Layer->new();

    my $self = bless(
        {
            test_class  => $test_class,
            root_layer  => $root_layer,
            ok          => Fennec::Util->can("${tb}_ok"),
            diag        => Fennec::Util->can("${tb}_diag"),
            skip        => Fennec::Util->can("${tb}_skip"),
            todo_start  => Fennec::Util->can("${tb}_todo_start"),
            todo_end    => Fennec::Util->can("${tb}_todo_end"),
            layer_stack => [$root_layer],
        },
        $class
    );

    return $self;
}

my @LAYER_STACK;

sub push_layer {
    my $self = shift;
    push @LAYER_STACK => @_;
}

sub pop_layer {
    my $self    = shift;
    my ($check) = @_;
    my $layer   = pop @LAYER_STACK;
    die "Bad pop!" unless $layer == $check;
    return $layer;
}

sub peek_layer {
    my $self = shift;
    return $LAYER_STACK[-1];
}

1;

__END__