++ed by:

94 PAUSE users
66 non-PAUSE users.

Chad Granum
and 1 contributors


Test::Builder::Event::Ok - Ok event type


The ok event type.


See Test::Builder::Event which is the base class for this module.


$r = $class->new(...)

Create a new instance



True if the test passed, or if we are in a todo/skip


True if the test passed, false otherwise, even in todo.


Name of the test.


Reason for todo (may be empty, even in a todo, check in_todo().


Reason for skip


Get the test trace info, including where to report errors.


PID in which the event was created.


Builder depth of the event (0 for normal, 1 for subtest, 2 for nested, etc).


True if the event was generated inside a todo.


Builder that created the event, usually $0, but the name of a subtest when inside a subtest.


Package, File, and Line in which the event was built.


Either undef, or an arrayref of Test::Builder::Event::Diag objects. These objects will be linked to this Ok event. Calling $diag->linked on them will return this Ok object. References here are strong references, references to this object from the linked Diag objects are weakened to avoid cycles.

You can push diag objects into the arrayref by using them as arguments to this method. Objects will be validated to ensure that they are Diag objects, and not already linked to a event. As well linked will be set on them.


Remove all linked Diag objects, also removes the link within the Diags. Returns a list of the objects.



Returns the TAP string for the plan (not indented).


Type of event. Usually this is the lowercased name from the end of the package. Test::Builder::Event::Ok = 'ok'.


Returns the indentation that should be used to display the event (' ' x depth).


Chad Granum <exodist@cpan.org>


The source code repository for Test::More can be found at http://github.com/Test-More/test-more/.


Copyright 2014 Chad Granum <exodist7@gmail.com>.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html