Gecko [ nbspublicschool.com ]

/ usr / local / share / perl5 / Test / Deep / [ HOME SHELL ]

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

Code Editor : Hash.pm

use strict;
use warnings;

package Test::Deep::Hash;

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;

return 0 unless Test::Deep::descend($got, $self->hash_keys($exp));

return 0 unless $self->test_class($got);

return Test::Deep::descend($got, $self->hash_elements($exp));
}

sub hash_elements
{
  require Test::Deep::HashElements;

my $self = shift;

return Test::Deep::HashElements->new(@_);
}

sub hash_keys
{
  require Test::Deep::HashKeys;

my $self = shift;
  my $exp = shift;

return Test::Deep::HashKeys->new(keys %$exp);
}

sub reset_arrow
{
  return 0;
}

package Test::Deep::SuperHash;

use base 'Test::Deep::Hash';

sub hash_elements
{
  require Test::Deep::HashElements;

my $self = shift;

return Test::Deep::SuperHashElements->new(@_);
}

sub hash_keys
{
  require Test::Deep::HashKeys;

my $self = shift;
  my $exp = shift;

return Test::Deep::SuperHashKeys->new(keys %$exp);
}

package Test::Deep::SubHash;

use base 'Test::Deep::Hash';

sub hash_elements
{
  require Test::Deep::HashElements;

my $self = shift;

return Test::Deep::SubHashElements->new(@_);
}

sub hash_keys
{
  require Test::Deep::HashKeys;

my $self = shift;
  my $exp = shift;

return Test::Deep::SubHashKeys->new(keys %$exp);
}

1;