Gecko [ 8.222.176.185 ]

Name	Size	Permission
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-

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 : HashKeysOnly.pm

use strict;
use warnings;

package Test::Deep::HashKeysOnly;

use Test::Deep::Ref;

sub init
{
  my $self = shift;

my %keys;
  @keys{@_} = ();
  $self->{val} = \%keys;
  $self->{keys} = [sort @_];
}

sub descend
{
  my $self = shift;
  my $hash = shift;

my $data = $self->data;
  my $exp = $self->{val};
  my %got;
  @got{keys %$hash} = ();

my @missing;
  my @extra;

while (my ($key, $value) = each %$exp)
  {
    if (exists $got{$key})
    {
      delete $got{$key};
    }
    else
    {
      push(@missing, $key);
    }
  }

my @diags;
  if (@missing and (not $self->ignoreMissing))
  {
    push(@diags, "Missing: ".nice_list(\@missing));
  }

if (%got and (not $self->ignoreExtra))
  {
    push(@diags, "Extra: ".nice_list([keys %got]));
  }

if (@diags)
  {
    $data->{diag} = join("\n", @diags);
    return 0;
  }

return 1;
}

sub diagnostics
{
  my $self = shift;
  my ($where, $last) = @_;

my $type = $self->{IgnoreDupes} ? "Set" : "Bag";

my $error = $last->{diag};
  my $diag = <<EOM;
Comparing hash keys of $where
$error
EOM

return $diag;
}

sub nice_list
{
  my $list = shift;

return join(", ",
    (map {"'$_'"} sort @$list),
  );
}

sub ignoreMissing
{
  return 0;
}

sub ignoreExtra
{
  return 0;
}

package Test::Deep::SuperHashKeysOnly;

use base 'Test::Deep::HashKeysOnly';

sub ignoreMissing
{
  return 0;
}

sub ignoreExtra
{
  return 1;
}

package Test::Deep::SubHashKeysOnly;

use base 'Test::Deep::HashKeysOnly';

sub ignoreMissing
{
  return 1;
}

sub ignoreExtra
{
  return 0;
}

${this.title}

Code Editor : HashKeysOnly.pm