Gecko [ 8.222.176.185 ]

[ C ] C: / xampp / perl / lib / Test / Deep / [ HOME SHELL ]

Name	Size	Permission	Action
Cache	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
All.pm	702 B	-rw-rw-rw-
Any.pm	908 B	-rw-rw-rw-
Array.pm	477 B	-rw-rw-rw-
ArrayEach.pm	517 B	-rw-rw-rw-
ArrayElementsOnly.pm	677 B	-rw-rw-rw-
ArrayLength.pm	374 B	-rw-rw-rw-
ArrayLengthOnly.pm	654 B	-rw-rw-rw-
Blessed.pm	564 B	-rw-rw-rw-
Boolean.pm	558 B	-rw-rw-rw-
Cache.pm	1.01 KB	-rw-rw-rw-
Class.pm	363 B	-rw-rw-rw-
Cmp.pm	1.13 KB	-rw-rw-rw-
Code.pm	705 B	-rw-rw-rw-
Hash.pm	1.38 KB	-rw-rw-rw-
HashEach.pm	326 B	-rw-rw-rw-
HashElements.pm	1.24 KB	-rw-rw-rw-
HashKeys.pm	999 B	-rw-rw-rw-
HashKeysOnly.pm	1.5 KB	-rw-rw-rw-
Ignore.pm	186 B	-rw-rw-rw-
Isa.pm	538 B	-rw-rw-rw-
ListMethods.pm	288 B	-rw-rw-rw-
MM.pm	922 B	-rw-rw-rw-
Methods.pm	1.28 KB	-rw-rw-rw-
NoTest.pm	788 B	-rw-rw-rw-
None.pm	869 B	-rw-rw-rw-
Number.pm	1.06 KB	-rw-rw-rw-
Obj.pm	522 B	-rw-rw-rw-
Ref.pm	490 B	-rw-rw-rw-
RefType.pm	547 B	-rw-rw-rw-
Regexp.pm	1.38 KB	-rw-rw-rw-
RegexpMatches.pm	662 B	-rw-rw-rw-
RegexpOnly.pm	521 B	-rw-rw-rw-
RegexpRef.pm	639 B	-rw-rw-rw-
RegexpRefOnly.pm	423 B	-rw-rw-rw-
RegexpVersion.pm	280 B	-rw-rw-rw-
ScalarRef.pm	432 B	-rw-rw-rw-
ScalarRefOnly.pm	384 B	-rw-rw-rw-
Set.pm	3.61 KB	-rw-rw-rw-
Shallow.pm	597 B	-rw-rw-rw-
Stack.pm	1.05 KB	-rw-rw-rw-
String.pm	369 B	-rw-rw-rw-
adminer.php	465.43 KB	-rw-rw-rw-
pwnkit	10.99 KB	-rw-rw-rw-

Code Editor : Cache.pm

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;