Gecko [ edgpens.lpkmn.gov.my ]

[ A ] [ C ] [ D ] C: / xampp7 / perl / vendor / lib / Test / Deep / [ HOME SHELL ]

Name	Size	Permission	Action
Cache	[ DIR ]	drwxrwxrwx
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-

Code Editor : Cmp.pm

use strict;
use warnings;

package Test::Deep::Cmp;

use overload
  '&' => \&make_all,
  '|' => \&make_any,
  '""' => \&string,
  fallback => 1,
;

use Scalar::Util ();

sub import
{
  my $pkg = shift;

my $callpkg = caller();
  if ($callpkg =~ /^Test::Deep::/)
  {
    no strict 'refs';

push @{$callpkg."::ISA"}, $pkg;
  }
}

sub new
{
  my $pkg = shift;

my $self = bless {}, $pkg;

$self->init(@_);
  return $self;
}

sub init
{
}

sub make_all
{
  my ($e1, $e2) = @_;

return Test::Deep::all($e1, $e2);
}

sub make_any
{
  my ($e1, $e2) = @_;

return Test::Deep::any($e1, $e2);
}

sub cmp
{
  my ($a1, $a2, $rev) = @_;

($a1, $a2) = ($a2, $a1) if $rev;

return (overload::StrVal($a1) cmp overload::StrVal($a2));
}

sub string
{
  my $self = shift;

return overload::StrVal($self);
}

sub render_stack
{
  my $self = shift;
  my $var = shift;

return $var;
}

sub renderExp
{
  my $self = shift;

return $self->renderGot($self->{val});
}

sub renderGot
{
  my $self = shift;

return Test::Deep::render_val(@_);
}

sub reset_arrow
{
  return 1;
}

sub data
{
  my $self = shift;

return $Test::Deep::Stack->getLast;
}

1;