Group
Extension

Matches 1310

Text-CSV ( I/IS/ISHIGAKI/Text-CSV-2.06.tar.gz, HMBRAND, 2025; MetaCPAN )
Text-CSV/Text-CSV-0.007/t/85_util.t ( view source; MetaCPAN )
sep, ",", "Sep = ,");

for < , ; > -> $sep {
    my Str $data = "bAr,foo\n1,2\n3,4,5\n";
    $data ~~ s:g{ "," } = $sep;

    $csv.column-names (False);
    {   my $fh = IO::String.new: $data;
	ok (my
,", ";" ];
for ",", ";", "|", "\t" -> $sep {
    my Str $data = "bAr,foo\n1,2\n3,4,5\n";
    $data ~~ s:g{ "," } = $sep;

    $csv.column-names (False);
    {   my $fh = IO::String.new: $data;
	ok (my
>], "Headers");
    }

for < , ; > -> $sep {
    my Str $data = "bAr,foo\n1,2\n3,4,5\n";
    $data ~~ s:g{ "," } = $sep;

    $csv.column-names (False);
    {   my $fh = IO::String.new: $data;
	ok (my
Test-Simpler ( D/DC/DCONWAY/Test-Simpler-0.000008.tar.gz, DCONWAY, 2025; MetaCPAN )
Test-Simpler/lib/Test/Simpler.pm ( view source; MetaCPAN )
         eq | ne | lt | le | gt | ge
          | == | != | <  | <= | >  | >=
          | =~ | !~ | ~~
          ) \Z }x;

    my $expected_code = $test_code;
    my ($got_code, $comparator);
    for m
ed[0];
    ok  $result eq $expected[0];
    ok  $result == $expected->[0]->{a}[0];
    ok  $result ~~ $expected[0];
    ok  $result !~ $expected[0];
    ok  $result >  twice($expected{'half'});


=hea
$result                --> 1
    #       $expected->[0]->{a}[0] --> undef
    #
    ok 4 - $result ~~ $expected[0]
    not ok 5 - $result !~ $expected[0]
    #   Failed test at demo/ts_ok-er.pl line 1
Locale-CLDR ( J/JG/JGNI/Locale-CLDR-v0.46.0.tar.gz, JGNI, 2025; MetaCPAN )
Locale-CLDR/lib/Locale/CLDR.pm ( view source; MetaCPAN )
 /^ ( (?: (?: ~~ )*+ ~ \[ | [^\[] )++ ) /x;
        $raw //= '';
		if (length $raw) {
			$text =~ s/^ ( (?: (?: ~~ )*+ ~ \[ | [^\[] )++ ) //gx;
			# Fix up escapes
			$raw =~ s/(?:~~)*+\K~\[/[/g;

			$raw =~ s/(?:~~)*+\K~,/,/g;
			$raw =~ s/~~/~/g;
			
			# Escape stuff for perl
			$raw =~ s/\\/\\\\/g;
			$raw =~ s/'/\\'/g;
			
			$sub .= ", '$raw'";
		}
		
		last unless length $tex

		$method =~ s/ \[ \s* (.*?) \s* \] /$1/x;
		
		# sort out ~, and ~~
		$method =~ s/(?:~~)*+\K~,/\x{00}/g;
		$method =~ s/~~/~/g;
		($method, my @params) = split /,/, $method;
		
		# if $is_p
Crop ( O/OC/OCTAVIANI/Crop-0.1.27.tar.gz, OCTAVIANI, 2025; MetaCPAN )
Crop/lib/Crop/Debug.pm ( view source; MetaCPAN )
output items; if item is a reference, will print dump
=cut
sub debug {
	my $layer = $_[0] && $_[0] ~~ @Layer_const ? shift : DefaultLayer;

	# drop the layer prefix to print in a config-fasion manner
tput OFF
=cut
sub _verbose {
	my $layer = shift;

	my $conf = Crop->C->{debug};
	return 1 unless $conf->{output} eq 'On';
	
	return unless exists $conf->{layer};
	
	$layer ~~ @{$conf->{layer}};
}

1;
Aion ( D/DA/DART/Aion-0.4.tar.gz, DART, 2025; MetaCPAN )
Aion/lib/Aion.pm ( view source; MetaCPAN )
meta = $Aion::META{$pkg};
    my $extends = $meta->{extends} // return "";

    return 1 if $class ~~ $extends;
    for my $extender (@$extends) {
        return 1 if $extender->isa($class);
    }

  
elf;
	my $meta = $Aion::META{$pkg};
	my $does = $meta->{with} // return "";

    return 1 if $role ~~ $does;
    for my $doeser (@$does) {
        return 1 if $doeser->can("does") && $doeser->does($ro
Crop-Config ( O/OC/OCTAVIANI/Crop-Config-0.1.25.tar.gz, OCTAVIANI, 2025; MetaCPAN )
Crop-Config/lib/Crop/Debug.pm ( view source; MetaCPAN )
output items; if item is a reference, will print dump
=cut
sub debug {
	my $layer = $_[0] && $_[0] ~~ @Layer_const ? shift : DefaultLayer;

	# drop the layer prefix to print in a config-fasion manner
tput OFF
=cut
sub _verbose {
	my $layer = shift;

	my $conf = Crop->C->{debug};
	return 1 unless $conf->{output} eq 'On';
	
	return unless exists $conf->{layer};
	
	$layer ~~ @{$conf->{layer}};
}

1;
Geoffrey ( M/MZ/MZIESCHA/Geoffrey-0.000206.tar.gz, MZIESCHA, 2025; MetaCPAN )
Geoffrey/lib/Geoffrey/Action/Table.pm ( view source; MetaCPAN )
 {
    return $_[0]->{postfix} // q~~ if !defined $_[1];
    $_[0]->{postfix} = $_[1];
    return $_[0]->{postfix};
}

sub prefix {
    return $_[0]->{prefix} // q~~ if !defined $_[1];
    $_[0]->{pre
match-simple ( T/TO/TOBYINK/match-simple-0.012.tar.gz, TOBYINK, 2023; MetaCPAN )
match-simple/lib/match/smart.pm ( view source; MetaCPAN )
	my @mro = @{ mro::get_linear_isa( ref $obj ) };
	for my $class ( @mro ) {
		my $name = "$class\::(~~";
		my $overload = do {
			no strict 'refs';
			exists( &$name ) ? \&$name : undef;
		};
		return 
  
   if (match($this, $that))
   {
      say "$this matches $that";
   }

=head2 Differences with ~~

There were major changes to smart match between 5.10.0 and 5.10.1. This
module attempts to emulat
smart's operator does not.

   @foo ~~ %bar       # means: \@foo ~~ \%bar
   @foo |M| %bar      # means: scalar(@foo) |M| scalar(%bar)

If you want the C<< \@foo ~~ \%bar >> behaviour, you need to add
Perinci-Sub-Gen-AccessTable ( P/PE/PERLANCAR/Perinci-Sub-Gen-AccessTable-0.594.tar.gz, PERLANCAR, 2024; MetaCPAN )
Perinci-Sub-Gen-AccessTable/lib/Perinci/Sub/Gen/AccessTable.pm ( view source; MetaCPAN )
lters, [$f, $ftype, "~~", $args->{"$f.has"}, $ftype, $cic];
        }
        if (defined $args->{"$f.lacks"}) {
            $exists++;
            push @filters, [$f, $ftype, "!~~", $args->{"$f.lacks
q 'truth') {
                    next REC if $r_h->{$f} xor $opn;
                } elsif ($op eq '~~') {
                    if ($stringy) {
                        if ($cic) {
                      
} @{$r_h->{$f}};
                        }
                    }
                } elsif ($op eq '!~~') {
                    if ($stringy) {
                        if ($cic) {
                      
Travel-Status-DE-VRR ( D/DE/DERF/Travel-Status-DE-VRR-3.15.tar.gz, DERF, 2025; MetaCPAN )
Travel-Status-DE-VRR/lib/Travel/Status/DE/EFA/Result.pm ( view source; MetaCPAN )
 shift(@via_main);

			# FIXME cannot smartmatch $stop since it became an object
			#			if ( $stop ~~ \@via_show or $stop == $last_stop ) {
			#				next;
			#			}
			push( @via_show, $stop );
		}
	}

Mail-SpamAssassin ( G/GB/GBECHIS/Mail-SpamAssassin-4.0.2.tar.gz, GBECHIS, 2025; MetaCPAN )
Mail-SpamAssassin/spamd-apache2/bin/Bench-spamd.pl ( view source; MetaCPAN )
empfoo;
my $start = [gettimeofday];

while ($mux->handles < $opt{conc} && new_conn()) {
    ##warn ~~ $mux->handles();
    die if $mux->handles > $opt{conc};
}
$mux->loop;

my $howlong = tv_interval($
Text-CSV ( I/IS/ISHIGAKI/Text-CSV-2.06.tar.gz, HMBRAND, 2025; MetaCPAN )
Text-CSV/Text-CSV-0.007/t/45_eol.t ( view source; MetaCPAN )
     if ($expect.defined && $expect ~~ m/ "\r\n" /) {
                        my $r = $expect;
                        my $n = $expect;
                        $n ~~ s:g{ "\r\n" } = "\n";
            
Text-CSV ( I/IS/ISHIGAKI/Text-CSV-2.06.tar.gz, HMBRAND, 2025; MetaCPAN )
Text-CSV/Text-CSV-0.007/t/30_field.t ( view source; MetaCPAN )
);
my $n = +$f;
ok ($n ~~ Num,                "Undefined in Numeric context type");
is ($n.defined,   False,      "Undefined in Numeric context defined");
my $s = ~$f;
ok ($s ~~ Str,                "U
Text-CSV ( I/IS/ISHIGAKI/Text-CSV-2.06.tar.gz, HMBRAND, 2025; MetaCPAN )
Text-CSV/Text-CSV-0.007/t/41_null.t ( view source; MetaCPAN )

    "0\n\0",
    "\0\n\0",
    );
my %exp;
for @pat -> $pat {
    my $x = $pat;
    $x ~~ s:g/\0/\\0/;
    $x ~~ s:g/\n/\\n/;
    %exp{$pat} = $x;
    }
my Str @line = ("", Str, "0\n", "", "\0\0\n0")
DBIx-DBO ( V/VL/VLYON/DBIx-DBO-0.50.tar.gz, VLYON, 2025; MetaCPAN )
DBIx-DBO/lib/DBIx/DBO/DBD.pm ( view source; MetaCPAN )
func;
                    use warnings 'uninitialized';
#                    next unless $fld_func ~~ $whs[$i][2];
                    my $l = $whs[$i][1];
                    next if ((ref $l eq 'ARR
Y' ? "@$l" : $l) ne (ref $fld eq 'ARRAY' ? "@$fld" : $fld));
#                    next unless $fld ~~ $whs[$i][1];
                    push @ary, $class->_build_where_piece($me, $bind, @{splice @whs, 
Data-Tools ( C/CA/CADE/Data-Tools-1.49.tar.gz, CADE, 2025; MetaCPAN )
Data-Tools/lib/Data/Tools/Time.pm ( view source; MetaCPAN )
n ISO8601
  return $dow;           # return Mon=1 as in ISO8601
}

# return month days count for given ( year, month ) (not strictly julian_ namespace)
sub julian_date_month_days_ym
{
  my $y = shift;
Net-SIP ( S/SU/SULLR/Net-SIP-0.839.tar.gz, SULLR, 2025; MetaCPAN )
Net-SIP/lib/Net/SIP/Request.pod ( view source; MetaCPAN )
ponse will
be based on the request, but can be added or overridden using \%HEADER.
If MSG is not given (e.g. argument is missing, second argument is \%HEADER
already) a builtin message for the code wi
Astro-satpass ( W/WY/WYANT/Astro-satpass-0.133_01.tar.gz, WYANT, 2025; MetaCPAN )
Astro-satpass/lib/Astro/Coord/ECI/Utils.pm ( view source; MetaCPAN )
turns the Greenwich hour angle of the mean equinox at
0 hours universal on the day whose time is given (i.e. the argument is
a standard Perl time).

=cut

sub theta0 {
    my ($time) = @_;
    my @t =
Net-SIP ( S/SU/SULLR/Net-SIP-0.839.tar.gz, SULLR, 2025; MetaCPAN )
Net-SIP/lib/Net/SIP/Simple.pm ( view source; MetaCPAN )
          - alias for domain2proxy
# Returns: $self
# Comment:
# FIXME
# If more than one leg is given (e.g. legs+outgoing_proxy) than you have
# to provide a function to find out, which leg is used t
Image-ExifTool ( E/EX/EXIFTOOL/Image-ExifTool-13.36.tar.gz, EXIFTOOL, 2025; MetaCPAN )
Image-ExifTool/lib/Image/ExifTool/Writer.pl ( view source; MetaCPAN )
l has access to @val if required)
        }
        # evaluate advanced formatting expression if given (eg. "${TAG;EXPR}")
        if (defined $expr and defined $val) {
            local $SIG{'__WARN_

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.