File Coverage

blib/lib/Test/Mojo/Role/DOMinizer.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	3	3	100.0
pod	1	1	100.0
total	20	21	95.2

package Test::Mojo::Role::DOMinizer;

use Mojo::Base -base;
use Role::Tiny;

our $VERSION = '1.001001'; # VERSION

sub in_DOM {
    my ($self, $code) = @_;
    my $res = do {
        local $_ = $self->tx->res->dom;
        $code->($_, $self);
    };

    # Don't know a better way to test whether the returned object is
    # a Test::Mojo when it does arbitrary roles, so doing this hack:
    my $ref = ref $res;
    $ref && (
        $ref eq 'Test::Mojo' or $ref =~ /^Test::Mojo__WITH__Test::Mojo::Role/
    ) ? $res : $self
}

1;
__END__