Gecko [ www.leshallesdegournay.geraud-market.com ]

Linux worldls-302.fr.planethoster.net 4.18.0-553.8.1.lve.el7h.x86_64 #1 SMP Thu Jul 4 15:19:33 UTC 2024 x86_64
LiteSpeed
Server IP : 10.185.0.203 & Your IP : 216.73.216.32
Domains : Cant Read [ /etc/named.conf ]
User : gerathty

Name	Size	Permission	Date
Cache	[ DIR ]	drwxr-xr-x	2017-07-03 23:01
All.pm	702 B	-r--r--r--	2017-05-04 16:05
Any.pm	908 B	-r--r--r--	2017-05-04 16:05
Array.pm	477 B	-r--r--r--	2016-07-20 04:23
ArrayEach.pm	517 B	-r--r--r--	2017-01-01 17:39
ArrayElementsOnly.pm	677 B	-r--r--r--	2016-07-20 04:23
ArrayLength.pm	374 B	-r--r--r--	2016-07-20 04:23
ArrayLengthOnly.pm	654 B	-r--r--r--	2016-07-20 04:23
Blessed.pm	564 B	-r--r--r--	2016-07-20 04:23
Boolean.pm	558 B	-r--r--r--	2016-07-20 04:23
Cache.pm	1.01 KB	-r--r--r--	2016-07-20 04:23
Class.pm	363 B	-r--r--r--	2016-07-20 04:23
Cmp.pm	1.13 KB	-r--r--r--	2016-07-20 04:23
Code.pm	705 B	-r--r--r--	2016-07-20 04:23
Hash.pm	1.38 KB	-r--r--r--	2016-07-20 04:23
HashEach.pm	326 B	-r--r--r--	2016-07-20 04:23
HashElements.pm	1.24 KB	-r--r--r--	2016-07-20 04:23
HashKeys.pm	999 B	-r--r--r--	2016-07-20 04:23
HashKeysOnly.pm	1.5 KB	-r--r--r--	2016-07-20 04:23
Ignore.pm	186 B	-r--r--r--	2016-07-20 04:23
Isa.pm	538 B	-r--r--r--	2016-07-20 04:23
ListMethods.pm	288 B	-r--r--r--	2016-07-20 04:23
MM.pm	922 B	-r--r--r--	2016-07-20 04:23
Methods.pm	1.28 KB	-r--r--r--	2017-01-01 17:39
NoTest.pm	766 B	-r--r--r--	2013-04-13 16:51
None.pm	869 B	-r--r--r--	2017-05-04 16:05
Number.pm	1.06 KB	-r--r--r--	2016-07-20 04:23
Obj.pm	522 B	-r--r--r--	2016-07-20 04:23
Ref.pm	490 B	-r--r--r--	2016-07-20 04:23
RefType.pm	547 B	-r--r--r--	2016-07-20 04:23
Regexp.pm	1.38 KB	-r--r--r--	2017-01-01 17:39
RegexpMatches.pm	662 B	-r--r--r--	2016-07-20 04:23
RegexpOnly.pm	521 B	-r--r--r--	2016-07-20 04:23
RegexpRef.pm	639 B	-r--r--r--	2016-07-20 04:23
RegexpRefOnly.pm	423 B	-r--r--r--	2016-07-20 04:23
RegexpVersion.pm	280 B	-r--r--r--	2013-04-13 16:51
ScalarRef.pm	432 B	-r--r--r--	2016-07-20 04:23
ScalarRefOnly.pm	384 B	-r--r--r--	2016-07-20 04:23
Set.pm	3.61 KB	-r--r--r--	2017-01-01 17:39
Shallow.pm	597 B	-r--r--r--	2016-09-06 22:51
Stack.pm	1.05 KB	-r--r--r--	2016-07-20 04:23
String.pm	369 B	-r--r--r--	2016-07-20 04: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);
}