File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	8	8	100.0
condition	6	7	85.7
subroutine	8	8	100.0
pod	2	2	100.0
total	54	55	98.1

package Test::Mojo::Role::Debug;

use Mojo::Base -base;
use Mojo::File qw/path/;
use Mojo::Util qw/encode/;
use Role::Tiny;
use Carp qw/croak/;
use Test::More ();

our $VERSION = '1.004001'; # VERSION

sub d {
    my ( $self, $selector, $dump_file ) = @_;
    return $self->success ? $self : $self->da( $selector, $dump_file );
}

sub da {
    my ( $self, $selector, $dump_file ) = @_;
    my $markup = length($selector//'')
        ? $self->tx->res->dom->at($selector)
        : $self->tx->res->dom;

    unless ( defined $markup and length $markup ) {
        Test::More::diag "\nDEBUG DUMPER: the selector ($selector) you provided "
            . "did not match any elements\n\n";
        return $self;
    }

    if (length($dump_file//'')) {
        Test::More::diag "\nDEBUG DUMPER: dumping data to $dump_file\n\n";
        path($dump_file)->spurt(encode 'utf-8', $markup);
    }
    else {
        Test::More::diag "\nDEBUG DUMPER:\n$markup\n\n";
    }

    $self;
}

q|
The optimist says: "The glass is half full"
The pessimist says: "The glass is half empty"
The programmer says: "The glass is twice as large necessary"
|;

__END__