webshell

Ghost Exploiter Team Official

C:/Program Files/Git/usr/share/perl5/core_perl/Test2/Compare/

File / Folder	Size	Action
.	-
Array.pm	8.058KB	edt ren
Bag.pm	5.407KB	edt ren
Base.pm	5.6KB	edt ren
Bool.pm	1.817KB	edt ren
Custom.pm	3.392KB	edt ren
DeepRef.pm	1.937KB	edt ren
Delta.pm	13.727KB	edt ren
Event.pm	1.313KB	edt ren
EventMeta.pm	1.612KB	edt ren
Float.pm	3.976KB	edt ren
Hash.pm	5.739KB	edt ren
Isa.pm	1.639KB	edt ren
Meta.pm	3.43KB	edt ren
Negatable.pm	2.196KB	edt ren
Number.pm	3.104KB	edt ren
Object.pm	6.073KB	edt ren
OrderedSubset.pm	3.383KB	edt ren
Pattern.pm	1.666KB	edt ren
Ref.pm	1.912KB	edt ren
Regex.pm	1.515KB	edt ren
Scalar.pm	1.988KB	edt ren
Set.pm	2.899KB	edt ren
String.pm	1.78KB	edt ren
Undef.pm	1.263KB	edt ren
Wildcard.pm	1.125KB	edt ren

package Test2::Compare::DeepRef;
use strict;
use warnings;

use base 'Test2::Compare::Base';

our $VERSION = '1.302210';

use Test2::Util::HashBase qw/input/;

use Test2::Util::Ref qw/render_ref rtype/;
use Scalar::Util qw/refaddr/;
use Carp qw/croak/;

sub init {
    my $self = shift;

croak "'input' is a required attribute"
        unless $self->{+INPUT};

croak "'input' must be a reference, got '" . $self->{+INPUT} . "'"
        unless ref $self->{+INPUT};

$self->SUPER::init();
}

sub name { '<REF>' }

sub verify {
    my $self = shift;
    my %params = @_;
    my ($got, $exists) = @params{qw/got exists/};

return 0 unless $exists;

my $in = $self->{+INPUT};
    return 0 unless ref $in;
    return 0 unless ref $got;

my $in_type = rtype($in);
    my $got_type = rtype($got);

return 0 unless $in_type eq $got_type;

return 1;
}

sub deltas {
    my $self = shift;
    my %params = @_;
    my ($got, $convert, $seen) = @params{qw/got convert seen/};

my $in = $self->{+INPUT};
    my $in_type = rtype($in);
    my $got_type = rtype($got);
    
    my $check = $convert->($$in);

return $check->run(
        id      => ['DEREF' => '$*'],
        convert => $convert,
        seen    => $seen,
        got     => $$got,
        exists  => 1,
    );
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Compare::DeepRef - Ref comparison

=head1 DESCRIPTION

Used to compare two refs in a deep comparison.

=head1 SYNOPSIS

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/test-more/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut

<=Back