The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TB2::Event::SubtestStart;

use TB2::Mouse;
use TB2::Types;
with 'TB2::Event';

our $VERSION = '1.005000_005';
$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)


=head1 NAME

TB2::SubtestStart - Start of a subtest event

=head1 DESCRIPTION

This is a L<TB2::Event> representing the start of a subtest.

A subtest is a set of code and events which has a state separate from
the main test.  The intent is to provide a clean slate to perform
tests in small chunks.  This could be a block of tests in a larger
file, or the tests of a single method.

A subtest has its own history, plan and set of results.

Receiving this event indicates that a subtest is about to start, all
events from here to L<TB2::SubtestEnd> belong to the
subtest.  Most event handlers will not have to be concerned about
this, the TestState will call C<subtest_handler> on each event handler
to get a new one to handle the subtest.

Information about the subtest can be communicated back to the parent
handler via information contained in the
L<TB2::SubtestEnd>.

=head1 METHODS

It has all the methods and attributes of L<TB2::Event> with
the following differences and additions.

=head2 Attributes

=head3 depth

How deeply nested this subtest is.  The first subtest will have a
depth of 1.  A subtest inside that subtest will have a depth of 2 and
so on.

It has no default.  The depth is typically set by
L<TB2::TestState/post_event> and need not be set by the
creator of the event.  Only set it if you wish to override the normal
depth.

=cut

has depth =>
  is            => 'rw',
  isa           => 'TB2::Positive_NonZero_Int';


=head3 name

The name of this subtest.

=cut

has name =>
  is            => 'rw',
  isa           => 'Str',
  default       => '';


=head3 directives

Any directives which were in effect when the subtest started.

These should be applied to the result of the subtest.

Usually used for todo blocks.

=cut

has directives =>
  is            => 'rw',
  isa           => 'ArrayRef',
  default       => sub { [] };


=head3 reason

The reason for any directives.

=cut

has reason =>
  is            => 'rw',
  isa           => 'Str',
  default       => '';


=head3 build_event_type

The event type is C<subtest_start>.

=cut

sub build_event_type { "subtest_start" }

=head1 SEE ALSO

L<TB2::Event>  This does the Event role.

L<TB2::SubtestEnd>  The cooresponding event which ends the subtest.

L<TB2::EventHandler/subtest_handler>  The method called on each Handler when a subtest starts.

=cut

no TB2::Mouse;

1;