ÿØÿà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::Cache; use Test::Deep::Cache::Simple; sub new { my $pkg = shift; my $self = bless {}, $pkg; $self->{expects} = [Test::Deep::Cache::Simple->new]; $self->{normal} = [Test::Deep::Cache::Simple->new]; $self->local; return $self; } sub add { my $self = shift; my $type = $self->type; $self->{$type}->[-1]->add(@_); } sub cmp { # go through all the caches to see if we know this one my $self = shift; my $type = $self->type; foreach my $cache (@{$self->{$type}}) { return 1 if $cache->cmp(@_); } return 0 } sub local { my $self = shift; foreach my $type (qw( expects normal )) { push(@{$self->{$type}}, Test::Deep::Cache::Simple->new); } } sub finish { my $self = shift; my $keep = shift; foreach my $type (qw( expects normal )) { my $caches = $self->{$type}; my $last = pop @$caches; $caches->[-1]->absorb($last) if $keep; } } sub type { return $Test::Deep::Expects ? "expects" : "normal"; } 1;