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

use strict;
use warnings;

package Test::Deep::Methods;

use Test::Deep::Cmp;
use Scalar::Util;

sub init
{
  my $self = shift;

# get them all into [$name,@args] => $value format
  my @methods;
  while (@_)
  {
    my $name = shift;
    my $value = shift;
    push(@methods,
      [
        ref($name) ? $name : [ $name ],
        $value
      ]
    );
  }
  $self->{methods} = \@methods;
}

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

my $data = $self->data;

foreach my $method (@{$self->{methods}})
  {
    $data->{method} = $method;

my ($call, $exp_res) = @$method;
    my ($name, @args) = @$call;

local $@;

my $got_res;
    if (! eval { $got_res = $self->call_method($got, $call); 1 }) {
      die $@ unless $@ =~ /\ACan't locate object method "\Q$name"/;
      $got_res = $Test::Deep::DNE;
    }

next if Test::Deep::descend($got_res, $exp_res);

return 0;
  }

return 1;
}

sub call_method
{
  my $self = shift;
  my ($got, $call) = @_;
  my ($name, @args) = @$call;

return $got->$name(@args);
}

sub render_stack
{
  my $self = shift;
  my ($var, $data) = @_;

my $method = $data->{method};
  my ($call, $expect) = @$method;
  my ($name, @args) = @$call;

my $args = @args ? "(".join(", ", @args).")" : "";
  $var .= "->$name$args";

return $var;
}

${this.title}

Code Editor : Methods.pm