ÿØÿàJFIFÿþ ÿÛC       ÿÛC ÿÀÿÄÿÄ"#QrÿÄÿÄ&1!A"2qQaáÿÚ ?Øy,æ/3JæݹÈ߲؋5êXw²±ÉyˆR”¾I0ó2—PI¾IÌÚiMö¯–þrìN&"KgX:Šíµ•nTJnLK„…@!‰-ý ùúmë;ºgµŒ&ó±hw’¯Õ@”Ü— 9ñ-ë.²1<yà‚¹ïQÐU„ہ?.’¦èûbß±©Ö«Âw*VŒ) `$‰bØԟ’ëXÖ-ËTÜíGÚ3ð«g Ÿ§¯—Jx„–’U/ÂÅv_s(Hÿ@TñJÑãõçn­‚!ÈgfbÓc­:él[ðQe 9ÀPLbÃãCµm[5¿ç'ªjglå‡Ûí_§Úõl-;"PkÞÞÁQâ¼_Ñ^¢SŸx?"¸¦ùY騐ÒOÈ q’`~~ÚtËU¹CڒêV  I1Áß_ÿÙuse strict; use warnings; package Test::Deep::HashElements; use Test::Deep::Ref; sub init { my $self = shift; my $val = shift; $self->{val} = $val; } sub descend { my $self = shift; my $got = shift; my $exp = $self->{val}; my $data = $self->data; my $master = $self->getMaster($got, $exp); foreach my $key (keys %$master) { $data->{index} = $key; my $got_elem = exists $got->{$key} ? $got->{$key} : $Test::Deep::DNE; my $exp_elem = exists $exp->{$key} ? $exp->{$key} : $Test::Deep::DNE; next if Test::Deep::descend($got_elem, $exp_elem); return 0; } return 1; } sub getMaster { my $self = shift; my ($got, $exp) = @_; return keys %$got > keys %$exp ? $got : $exp; } sub render_stack { my $self = shift; my ($var, $data) = @_; $var .= "->" unless $Test::Deep::Stack->incArrow; $var .= '{"'.quotemeta($data->{index}).'"}'; return $var; } sub reset_arrow { return 0; } package Test::Deep::SuperHashElements; use base 'Test::Deep::HashElements'; sub getMaster { my $self = shift; my ($got, $exp) = @_; return $exp; } package Test::Deep::SubHashElements; use base 'Test::Deep::HashElements'; sub getMaster { my $self = shift; my ($got, $exp) = @_; return $got; } 1;