1use strict; 2use warnings; 3 4package Test::Deep::String; 5 6use Test::Deep::Cmp; 7 8sub init 9{ 10 my $self = shift; 11 12 $self->{val} = shift; 13} 14 15sub descend 16{ 17 my $self = shift; 18 my $got = shift().""; 19 20 $self->data->{got} = $got; 21 22 return $got eq $self->{val}; 23} 24 25sub diag_message 26{ 27 my $self = shift; 28 29 my $where = shift; 30 31 return "Comparing $where as a string"; 32} 33 341; 35