File Coverage

blib/lib/Test/Mojo/Most.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	4	6	66.6
condition	1	2	50.0
subroutine	10	10	100.0
pod	2	2	100.0
total	45	49	91.8

package Test::Mojo::Most;

use strict;
use warnings;

# if we use Mojo::Base we get redfined warnings, so use parent instead
use parent 'Test::Mojo::Session';
use parent 'Test::Mojo::More';
use parent 'Test::Mojo::Trim';

our $VERSION = '0.06';

sub _cookie {
    my ( $self,$name ) = @_;

    my @cookies = $self->ua->cookie_jar->all;
	@cookies = @{$cookies[0]} if ref $cookies[0] eq 'ARRAY';

    foreach my $cookie ( @cookies ) {
        return $cookie if $cookie->name eq $name;
    }
    return;
}

sub _session {
	# _extract_session from Test::Mojo::Session
	return shift->_extract_session;
}

sub _flash {
	return $_[0]->app->flash( $_[1] ) if @_ == 2;
	{};
}

sub cookie_hashref { return { map { $_->name => $_->value } @{ $_[0]->tx->res->cookies } } }
sub flash_hashref  { return $_[0]->_session->{flash} || $_[0]->_session->{new_flash} || {} }

__END__