Perl Diver 2.31
Main Environment Variables Perl Default Values Perl Config - Summary Perl Config - Full Installed Modules List Directory uptime Docs

Module Documentation
Details and documentation about a specific module, including version and documentation (if available). Note that while links to perldoc.com and search.cpan.org are provided, the module may be part of a larger distribution. If you reach a File Not Found page on either site, please try the parent module.

Test2::Util::Grabber

Name Test2::Util::Grabber
Version 0.000144
Located at /usr/local/share/perl5
File /usr/local/share/perl5/Test2/Util/Grabber.pm
Is Core No
Search CPAN for this module Test2::Util::Grabber
Documentation Test2::Util::Grabber
Module Details Test2::Util::Grabber


NAME

Test2::Util::Grabber - Object used to temporarily intercept all events.


DESCRIPTION

Once created this object will intercept and stash all events sent to the shared the Test2::Hub manpage object. Once the object is destroyed, events will once again be sent to the shared hub.


SYNOPSIS

    use Test2 qw/Core Grab/;
    my $grab = grab();
    # Generate some events, they are intercepted.
    ok(1, "pass");
    ok(0, "fail");
    my $events_a = $grab->flush;
    # Generate some more events, they are intercepted.
    ok(1, "pass");
    ok(0, "fail");
    # Same as flush, except it destroys the grab object.
    my $events_b = $grab->finish;

After calling finish() the grab object is destroyed and $grab is set to undef. $events_a is an arrayref with the first two events. $events_b is an arrayref with the second two events.


EXPORTS

$grab = grab()
This lets you intercept all events for a section of code without adding anything to your call stack. This is useful for things that are sensitive to changes in the stack depth.
    my $grab = grab();
        ok(1, 'foo');
        ok(0, 'bar');
    # $grab is magically undef after this.
    my $events = $grab->finish;
    is(@$events, 2, "grabbed two events.");

When you call finish() the $grab object will automagically undef itself, but only for the reference used in the method call. If you have other references to the $grab object they will not be set to undef.

If the $grab object is destroyed without calling finish(), it will automatically clean up after itself and restore the parent hub.

    {
        my $grab = grab();
        # Things are grabbed
    }
    # Things are back to normal

By default the hub used has no_ending set to true. This will prevent the hub from enforcing that you issued a plan and ran at least one test. You can turn enforcement back one like this:

    $grab->hub->set_no_ending(0);

With no_ending turned off, finish will run the post-test checks to enforce the plan and that tests were run. In many cases this will result in additional events in your events array.


METHODS

$grab = $class->new()
Create a new grab object, immediately starts intercepting events.

$ar = $grab->flush()
Get an arrayref of all the events so far, clearing the grab objects internal list.

$ar = $grab->events()
Get an arrayref of all events so far. Does not clear the internal list.

$ar = $grab->finish()
Get an arrayref of all the events, then destroy the grab object.

$hub = $grab->hub()
Get the hub that is used by the grab event.


ENDING BEHAVIOR

By default the hub used has no_ending set to true. This will prevent the hub from enforcing that you issued a plan and ran at least one test. You can turn enforcement back one like this:

    $grab->hub->set_no_ending(0);

With no_ending turned off, finish will run the post-test checks to enforce the plan and that tests were run. In many cases this will result in additional events in your events array.


SEE ALSO

the Test2::Tools::Intercept manpage - Accomplish the same thing, but using blocks instead.


SOURCE

The source code repository for Test2 can be found at https://github.com/Test-More/Test2-Suite/.


MAINTAINERS

Chad Granum


AUTHORS

Chad Granum <exodist@cpan.org>Chad Granum


COPYRIGHT

Copyright 2018 Chad Granum <exodist@cpan.org>.

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

See http://dev.perl.org/licenses/

Perl Diver brought to you by ScriptSolutions.com © 1997- 2024