view release on metacpan or  search on metacpan

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

    ) {
        Test::More::is($actual, $expected, $name);
    }
    else {
        $name = '' unless defined $name;
        ok $actual eq $expected, $name;
        diag 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/base64.t  view on Meta::CPAN

=== Test Two

--- encoded
c3ViIHJ1bigmKSB7CiAgICBteSAkc2VsZiA9ICRkZWZhdWx0X29iamVjdDsKICAgIG15ICRjYWxs
YmFjayA9IHNoaWZ0OwogICAgZm9yIG15ICRibG9jayAoJHNlbGYtPmJsb2NrcykgewogICAgICAg
ICZ7JGNhbGxiYWNrfSgkYmxvY2spOwogICAgfQp9Cg==

--- decoded base64_encode

sub run(&) {
    my $self = $default_object;
    my $callback = shift;
    for my $block ($self->blocks) {
        &{$callback}($block);
    }
}