Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Cache	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
All.pm	702 B	-rw-rw-rw-	2017-05-04 18:05
Any.pm	908 B	-rw-rw-rw-	2017-05-04 18:05
Array.pm	477 B	-rw-rw-rw-	2016-07-20 06:23
ArrayEach.pm	517 B	-rw-rw-rw-	2017-01-01 18:39
ArrayElementsOnly.pm	677 B	-rw-rw-rw-	2016-07-20 06:23
ArrayLength.pm	374 B	-rw-rw-rw-	2016-07-20 06:23
ArrayLengthOnly.pm	654 B	-rw-rw-rw-	2016-07-20 06:23
Blessed.pm	564 B	-rw-rw-rw-	2016-07-20 06:23
Boolean.pm	558 B	-rw-rw-rw-	2016-07-20 06:23
Cache.pm	1.01 KB	-rw-rw-rw-	2016-07-20 06:23
Class.pm	363 B	-rw-rw-rw-	2016-07-20 06:23
Cmp.pm	1.13 KB	-rw-rw-rw-	2016-07-20 06:23
Code.pm	705 B	-rw-rw-rw-	2016-07-20 06:23
Hash.pm	1.38 KB	-rw-rw-rw-	2016-07-20 06:23
HashEach.pm	326 B	-rw-rw-rw-	2016-07-20 06:23
HashElements.pm	1.24 KB	-rw-rw-rw-	2016-07-20 06:23
HashKeys.pm	999 B	-rw-rw-rw-	2016-07-20 06:23
HashKeysOnly.pm	1.5 KB	-rw-rw-rw-	2016-07-20 06:23
Ignore.pm	186 B	-rw-rw-rw-	2016-07-20 06:23
Isa.pm	538 B	-rw-rw-rw-	2016-07-20 06:23
ListMethods.pm	288 B	-rw-rw-rw-	2016-07-20 06:23
MM.pm	922 B	-rw-rw-rw-	2016-07-20 06:23
Methods.pm	1.28 KB	-rw-rw-rw-	2017-01-01 18:39
NoTest.pm	788 B	-rw-rw-rw-	2020-01-26 17:48
None.pm	869 B	-rw-rw-rw-	2017-05-04 18:05
Number.pm	1.06 KB	-rw-rw-rw-	2016-07-20 06:23
Obj.pm	522 B	-rw-rw-rw-	2016-07-20 06:23
Ref.pm	490 B	-rw-rw-rw-	2016-07-20 06:23
RefType.pm	547 B	-rw-rw-rw-	2016-07-20 06:23
Regexp.pm	1.38 KB	-rw-rw-rw-	2017-01-01 18:39
RegexpMatches.pm	662 B	-rw-rw-rw-	2016-07-20 06:23
RegexpOnly.pm	521 B	-rw-rw-rw-	2016-07-20 06:23
RegexpRef.pm	639 B	-rw-rw-rw-	2016-07-20 06:23
RegexpRefOnly.pm	423 B	-rw-rw-rw-	2016-07-20 06:23
RegexpVersion.pm	280 B	-rw-rw-rw-	2013-04-13 18:51
ScalarRef.pm	432 B	-rw-rw-rw-	2016-07-20 06:23
ScalarRefOnly.pm	384 B	-rw-rw-rw-	2016-07-20 06:23
Set.pm	3.61 KB	-rw-rw-rw-	2017-01-01 18:39
Shallow.pm	597 B	-rw-rw-rw-	2016-09-07 00:51
Stack.pm	1.05 KB	-rw-rw-rw-	2016-07-20 06:23
String.pm	369 B	-rw-rw-rw-	2016-07-20 06:23

Rename

use strict;
use warnings;

package Test::Deep::Regexp;

use Test::Deep::Cmp;
use Test::Deep::RegexpMatches;

sub init
{
  my $self = shift;

my $val = shift;

$val = ref $val ? $val : qr/$val/;

$self->{val} = $val;

if (my $matches = shift)
  {
    $self->{matches} = Test::Deep::regexpmatches($matches, $val);

$self->{flags} = shift || "";
  }
}

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

my $re = $self->{val};
  if (my $match_exp = $self->{matches})
  {
    my $flags = $self->{flags};
    my @match_got;
    if ($flags eq "g")
    {
      @match_got = $got =~ /$re/g;
    }
    else
    {
      @match_got = $got =~ /$re/;
    }

if (@match_got)
    {
      return Test::Deep::descend(\@match_got, $match_exp);
    }
    else
    {
      return 0;
    }
  }
  else
  {
    return ($got =~ $re) ? 1 : 0;
  }
}

sub diag_message
{
  my $self = shift;

my $where = shift;

return "Using Regexp on $where";
}

sub render_stack1
{
  my $self = shift;

my $stack = shift;
  return "($stack =~ $self->{regex})";
}

sub renderExp
{
  my $self = shift;

return "$self->{val}";
}

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

if (defined (my $class = Scalar::Util::blessed($got)))
  {
    my $ostr = qq{$got};
    if ($ostr ne overload::StrVal($got))
    {
      return qq{'$ostr' (instance of $class)};
    }
  }

return Test::Deep::render_val($got);
}