view release on metacpan or  search on metacpan

inc/Test/Base.pm  view on Meta::CPAN

    ) {
        Test::More::is($actual, $expected, $name);
    }
    else {
        $name = '' unless defined $name;
        ok $actual eq $expected,
           $name . "\n" . Text::Diff::diff(\$expected, \$actual);
    }
}

sub run(&;$) {
    (my ($self), @_) = find_my_self(@_);
    my $callback = shift;
    for my $block (@{$self->block_list}) {
        $block->run_filters unless $block->is_filtered;
        &{$callback}($block);
    }
}

my $name_error = "Can't determine section names";
sub _section_names {

t/Util.pm  view on Meta::CPAN

package t::Util;
use strict;
use warnings;
use base 'Exporter';

our @EXPORT = qw/run_session/;

use POE;

sub run_session(&) {
    my $code = shift;

    POE::Session->create(
        inline_states => {
            _start => $code,
        },
    );
    POE::Kernel->run;
}