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