File Coverage

lib/Test/Chai/Core/Assertions/RespondTo.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	8	8	100.0
pod	0	1	0.0
total	43	46	93.4

package Test::Chai::Core::Assertions::RespondTo;
use strict;
use warnings;
use utf8;

use Exporter qw/import/;
our @EXPORT_OK = qw/assert_respond_to/;

use Scalar::Util qw/blessed/;

use Test::Chai::Util::Flag qw/flag/;
use Test::Chai::Util::Inspect qw/inspect/;

sub assert_respond_to {
    my ($self, $method, $msg) = @_;

    flag($self, 'message', $msg) if defined $msg;


    my $obj     = flag($self, 'object');
    my $context =
        blessed $obj ? \&{ref($obj).'::'.$method} :
        defined $obj ? \&{$obj.'::'.$method}      : undef;

    return $self->assert(
        ref $context eq 'CODE' && defined &$context,
        'expected #{this} to respond to ' . inspect($method),
        'expected #{this} to not respond to ' . inspect($method)
    );
}


1;