File Coverage

blib/lib/Test/Pcuke/Gherkin/Node/Feature.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	6	8	75.0
condition			n/a
subroutine	18	18	100.0
pod	1	14	7.1
total	81	96	84.3

package Test::Pcuke::Gherkin::Node::Feature;
use warnings;
use strict;

use base qw{Test::Pcuke::Gherkin::Node};
use Carp;

=head1 NAME

Test::Pcuke::Gherkin::Node::Feature - Represents a feature

=head1 SYNOPSIS

TODO SYNOPSIS

    use Test::Pcuke::Gherkin::Node::Feature;
    #TODO
    ...

=head1 METHODS

=head2 new

=cut

sub new {
	my($class, $args) = @_;

	my $properties	= [ qw{scenarios _nsteps _nscenarios} ];
	my $immutables	= [ qw{title narrative background} ];

	$args->{_nsteps}	= { pass=>0, undef=>0, fail=>0};
	$args->{_nscenarios}= { pass=>0, undef=>0, fail=>0};

	my $self = $class->SUPER::new(
		properties	=> $properties,
		immutables	=> $immutables,
		args 		=> $args
	);

	return $self;
}

sub set_title {
	my ($self, $title) = @_;
	$self->_set_immutable('title', $title);
}

sub set_narrative {
	my ($self, $narrative) = @_;

	$self->_set_immutable('narrative', $narrative);
}


sub title { $_[0]->_get_immutable('title') || q{} }
sub narrative{ $_[0]->_get_immutable('narrative') || q{} }

sub add_scenario {
	my ($self, $scenario) = @_;

	$self->_add_property('scenarios', $scenario);
}

sub add_outline {
	my ($self, $outline) = @_;
	$self->add_scenario( $outline );
}

sub set_background {
	my ($self, $bgr) = @_;
	$self->_set_immutable('background', $bgr);
}

sub background { $_[0]->_get_immutable('background') }

sub scenarios {
	my ($self) = @_;
	return $self->_get_property('scenarios');
}

sub execute {
	my ($self) = @_;
	my $scenarios = $self->_get_property('scenarios');

	foreach ( @$scenarios ) {
		$_->execute( $self->background );
		$self->collect_stats( $_ );
	}

	return $self;
}

sub collect_stats {
	my ($self, $scenario) = @_;

	my $nsteps		= $self->nsteps;
	my $nscenarios	= $self->nscenarios;

	my $asteps		= $scenario->nsteps;
	my $ascenarios	= $scenario->nscenarios;

	for (qw{pass fail undef}) {
		$nsteps->{$_}		+= $asteps->{$_};
		$nscenarios->{$_}	+= $ascenarios->{$_};
	}

	$self->_set_property('_nsteps', $nsteps);
	$self->_set_property('_nscenarios', $nscenarios);
}

sub nsteps		{
	my ($self, $status) = @_;

	my $nsteps = $self->_get_property('_nsteps');

	return $status ?
		  $nsteps->{$status}
		: $nsteps;
}

sub nscenarios	{
	my ($self, $status) = @_;
	my $nscenarios = $self->_get_property('_nscenarios');

	return $status ?
		  $nscenarios->{$status}
		: $nscenarios;
}

1; # End of Test::Pcuke::Gherkin::Node::Feature
__END__