1use strict;
2use warnings;
3
4package Test::Deep::RegexpRefOnly;
5
6use Test::Deep::Ref;
7
8sub init
9{
10	my $self = shift;
11
12	my $val = shift;
13
14	$self->{val} = $val;
15}
16
17sub descend
18{
19	my $self = shift;
20
21	my $got = shift;
22
23	my $exp = $self->{val};
24
25	return $got eq $exp;
26}
27
28sub render_stack
29{
30	my $self = shift;
31	my ($var, $data) = @_;
32
33	return "m/$var/";
34}
35
36sub renderGot
37{
38	my $self = shift;
39
40	return shift()."";
41}
42
431;
44