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