File Coverage

blib/lib/Test/Cukes/Scenario.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	4	6	66.6
condition	1	3	33.3
subroutine	3	3	100.0
pod	1	1	100.0
total	25	30	83.3

package Test::Cukes::Scenario;
use Moose;

has name => (
    is => "rw",
    required => 1,
    isa => "Str"
);

has steps => (
    is => "rw",
    required => 1,
    isa => "ArrayRef[Str]"
);

sub BUILDARGS {
    my $class = shift;
    if (@_ == 1 && ! ref $_[0]) {
        my $scenario_text = shift;
        my $args = {
            name => "",
            steps => []
        };

        for my $line (split /\n+/, $scenario_text) {
            if ($line =~ /^Scenario:\s(.+)$/) {
                $args->{name} = $1;
            } elsif ($line =~ /^  (Given|When|Then|And)\s(.+)$/) {
                push @{$args->{ steps }}, "$1 $2";
            }
        }

        return $args;
    }

    return $class->SUPER::BUILDARGS(@_);
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;