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


line stmt bran cond sub pod time code
1             package Test::Workflow::Meta;
2 137     137   814 use strict;
  137         264  
  137         6678  
3 137     137   2759 use warnings;
  137         265  
  137         4167  
4              
5 137     137   97566 use Test::Workflow::Layer;
  137         457  
  137         5894  
6 137     137   8819 use Test::Builder;
  137         380  
  137         5089  
7              
8 137     137   874 use Fennec::Util qw/accessors/;
  137         293  
  137         931  
9              
10             accessors qw{
11             test_class build_complete root_layer test_run test_wait test_sort ok diag
12             skip todo_start todo_end control_store
13             };
14              
15             sub new {
16 140     140 0 541 my $class = shift;
17 140         362 my ($test_class) = @_;
18              
19 140         366 my $tb = "tb";
20              
21 140         1082 my $root_layer = Test::Workflow::Layer->new();
22              
23 140         10137 my $self = bless(
24             {
25             test_class => $test_class,
26             root_layer => $root_layer,
27             ok => Fennec::Util->can("${tb}_ok"),
28             diag => Fennec::Util->can("${tb}_diag"),
29             skip => Fennec::Util->can("${tb}_skip"),
30             todo_start => Fennec::Util->can("${tb}_todo_start"),
31             todo_end => Fennec::Util->can("${tb}_todo_end"),
32             layer_stack => [$root_layer],
33             },
34             $class
35             );
36              
37 140         752 return $self;
38             }
39              
40             my @LAYER_STACK;
41              
42             sub push_layer {
43 198     198 0 344 my $self = shift;
44 198         606 push @LAYER_STACK => @_;
45             }
46              
47             sub pop_layer {
48 198     198 0 442 my $self = shift;
49 198         400 my ($check) = @_;
50 198         412 my $layer = pop @LAYER_STACK;
51 198 50       971 die "Bad pop!" unless $layer == $check;
52 198         552 return $layer;
53             }
54              
55             sub peek_layer {
56 1294     1294 0 1767 my $self = shift;
57 1294         3288 return $LAYER_STACK[-1];
58             }
59              
60             1;
61              
62             __END__