File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	11	11	100.0
pod	1	8	12.5
total	33	41	80.4

package Test::Pcuke::Gherkin::Node::Scenarios;

use warnings;
use strict;

use base 'Test::Pcuke::Gherkin::Node';
=head1 NAME

Test::Pcuke::Gherkin::Node::Scenarios - scenarios aka examples

=head1 SYNOPSIS

TODO SYNOPSIS

    use Test::Pcuke::Gherkin::Node::Scenarios;

    my $scenarios = Test::Pcuke::Gherkin::Node::Scenarios->new();
    # TODO code example

=head1 METHODS

=head2 new

=cut

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

	my $self = $class->SUPER::new(
		immutables	=> [qw{title table}],
		args		=> $args,
	);

	return $self;
}

sub set_title { $_[0]->_set_immutable('title', $_[1]) }
sub title { $_[0]->_get_immutable('title') || q{} }

sub set_table { $_[0]->_set_immutable('table', $_[1]) }
sub table { $_[0]->_get_immutable('table') }

sub execute {
	my ($self, $steps, $background) = @_;

	$self->table->execute( $steps, $background );
}

sub nsteps { $_[0]->table->nsteps }
sub nscenarios { $_[0]->table->nscenarios }



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