Group
Extension

Matches 1309

Gtk2-Ex-DbLinker-DbTools ( R/RA/RAPPAZF/Gtk2-Ex-DbLinker-DbTools-0.112.tar.gz, RAPPAZF, 2017; MetaCPAN )
Gtk2-Ex-DbLinker-DbTools/lib/Gtk2/Ex/DbLinker/SqlADataManager.pm ( view source; MetaCPAN )
 {

        $self->{log}->debug( "Processing field " . $fieldname );

        #if ( $sql_fieldname ~~ @pk) {
        if ( grep ( /\b$fieldname\b/, @pk ) ) {
            my @keys = keys %new_values;
  
Alien-FreeImage ( K/KM/KMX/Alien-FreeImage-1.001.tar.gz, KMX, 2017; MetaCPAN )
Alien-FreeImage/src/Source/LibPNG/png.h ( view source; MetaCPAN )
nst void *buffer, png_int_32 row_stride,
   const void *colormap));
   /* Write the image to the given (FILE*). */

/* With both write APIs if image is in one of the linear formats with 16-bit
 * data
Lingua-Identify-Blacklists ( T/TI/TIEDEMANN/Lingua-Identify-Blacklists-0.04b.tar.gz, TIEDEMANN, 2017; MetaCPAN )
Lingua-Identify-Blacklists/lib/Lingua/Identify/Blacklists.pm ( view source; MetaCPAN )
';
    while (my $line = $reader->getline($MAX_LINE_LENGTH)) {

	# save text if no languages are given (for blacklists)
	unless (exists $options{langs} || exists $options{assumed}){
	    if ( length($
POD2-ES ( E/EN/ENELL/POD2-ES-5.24.0.5.tar.gz, ENELL, 2017; MetaCPAN )
POD2-ES/lib/POD2/ES/perlcheat.pod ( view source; MetaCPAN )
se { }
  **                     unless  (e) { } elsif (e) { } else { }
  ! ~ \ u+ u-            given   (e) { when (e) {} default {} }
  =~ !~
  * / % x                NÚMEROS vs CADENAS  FALSO vs VE
on nombre  == !=      eq ne
  < > <= >= lt gt le ge   < > <= >=  lt gt le ge
  == != <=> eq ne cmp ~~  <=>        cmp
  &
  | ^             MODIFICADORES REGEX          METACARACTERES REGEX
  &&      
Alien-GvaScript ( D/DA/DAMI/Alien-GvaScript-1.45.tar.gz, DAMI, 2017; MetaCPAN )
Alien-GvaScript/lib/Alien/GvaScript/KeyMap.pod ( view source; MetaCPAN )
trol>, I<shift> and I<alt>. 
Several prefixes may be combined, but must appear in the order just given
(so for example B<S_C_A> would be illegal).

=back

Alternatively, key specifications may also fo
Business-UPS-Tracking ( M/MA/MAROS/Business-UPS-Tracking-1.13.tar.gz, MAROS, 2017; MetaCPAN )
Business-UPS-Tracking/lib/Business/UPS/Tracking/Role/Print.pm ( view source; MetaCPAN )
    return unless $value;

    $name = $params{index}.'. '.$name
        if $params{index};

    given (ref $value) {
        when('') {
            $table->row($name,$value);
        }
        when('
Spreadsheet-Reader-ExcelXML ( J/JA/JANDREW/Spreadsheet-Reader-ExcelXML-v0.16.8.tar.gz, JANDREW, 2017; MetaCPAN )
Spreadsheet-Reader-ExcelXML/lib/Spreadsheet/Reader/ExcelXML/XMLReader/WorkbookXML.pm ( view source; MetaCPAN )
############
	# SYNOPSIS Screen Output
	# 01: <?xml version="1.0"?><Styles><Style ss:ID="Default"/ ~~ / ss:ID="s22"><Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="14" ss:Color="#000000"
	######
FAIR-Data ( M/MA/MARKW/FAIR-Data-1.001.tar.gz, MARKW, 2016; MetaCPAN )
FAIR-Data/lib/FAIR/Base.pm ( view source; MetaCPAN )
ef; sometimes its a list of DCAT objects, sometimes a listref of strings
		
		unless (ref($values) ~~ /ARRAY/){  # some properties return listrefs, others return just a string or an object
			$values 
print STDERR $object, "\n";
		    next unless ($object);  # might be undef
		    if ((ref($object) ~~ /FAIR/) && $object->can('_toTriples')) {  # is it a FAIR object?  if so, unpack it  
			my $toConn
Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )
Wrangler/lib/Wrangler/FileSystem/Linux.pm ( view source; MetaCPAN )
t,@fileparse,$type,$type_human);
	if(!$wishlist || 'Filesystem' ~~ @$wishlist || "@$wishlist" =~ $regex_filesystem_contains || 'MIME' ~~ @$wishlist){
		# print STDOUT "   ** properties:  -asks for Fil
ishlist is given (so getting xattr is the default), or in case $wishlist is given, skip when xattr is omitted
	if(!$wishlist || 'Extended Attributes' ~~ @$wishlist || 'Filesystem::Xattr' ~~ @$wishlist
Log-Shiras ( J/JA/JANDREW/Log-Shiras-v0.48.0.tar.gz, JANDREW, 2016; MetaCPAN )
Log-Shiras/lib/Log/Shiras/Test2.pm ( view source; MetaCPAN )
use Test2::Plugin::UTF8;
	use Test::Log::Shiras;
	plan( 3 );
	
	~~ Set up the Log::Shiras::Switchboard operator here ($ella_peterson) ~~
	
	my $test_class;
	ok( lives{	$test_class = Log::Shiras::Test2
WebService-UMLSKS-Similarity ( T/TP/TPEDERSE/WebService-UMLSKS-Similarity-0.23.tar.gz, TPEDERSE, 2011; MetaCPAN )
WebService-UMLSKS-Similarity/lib/WebService/UMLSKS/FormGraph.pm ( view source; MetaCPAN )
hildren){
				$chdcount = $#children;
			#}
			
				
			foreach my $p (@parents) {
				unless ( $p ~~ %MetaCUIs ) {
					$Graph{$current_node}{$p} = 'U';
					$Graph{$p}{$current_node} = 'D';
					#$g
n) {
			if ( $#children != -1 ) {
				foreach my $c (0 .. $chdcount) {
					unless ( $children[$c] ~~ %MetaCUIs ) {
						
						$Graph{$current_node}{$children[$c]} = 'D';
						$Graph{$children[$c]}
}
		#	}
			if ( $#sib != -1 ) {
				foreach my $s (0 .. $sibcount) {
						
					unless ( $sib[$s] ~~ %MetaCUIs ) {
						
						unless(exists $Graph{$current_node}{$sib[$s]}){
							$Graph{$current_
IUP ( K/KM/KMX/IUP-0.305.tar.gz, KMX, 2016; MetaCPAN )
IUP/lib/IUP/Tree.pod ( view source; MetaCPAN )
. For ex:

 $elem->SetAttributeId("KIND", 30, $value) ~~ $elem->SetAttribute("KIND30", $value);
 
 $elem->SetAttributeId("ADDLEAF", 10, $value) ~~ $elem->SetAttribute("ADDLEAF10", $value);

But these 
IUP ( K/KM/KMX/IUP-0.305.tar.gz, KMX, 2016; MetaCPAN )
IUP/lib/IUP/List.pod ( view source; MetaCPAN )
d value. For ex:

 $elem->SetAttributeId("", 3, $value) ~~ $elem->SetAttribute("3", $value)
 
 $elem->SetAttributeId("INSERTITEM", 8, $value) ~~ $elem->SetAttribute("INSERTITEM8", $value)

But these f
rss2leafnode ( K/KR/KRYDE/rss2leafnode-79.tar.gz, KRYDE, 2017; MetaCPAN )
rss2leafnode/devel/samples.pl ( view source; MetaCPAN )
wp_response_done__check_md5 ($r2l, $resp);
  }

  #       if ($uri->scheme eq 'file' && $uri->host ~~ ['','localhost']) {
  #         my $filename = $uri->file;
  #         require Digest::file;
  #  
Scalar-Does ( T/TO/TOBYINK/Scalar-Does-0.203.tar.gz, TOBYINK, 2017; MetaCPAN )
Scalar-Does/lib/IO/Detect.pm ( view source; MetaCPAN )
l qw< blessed >;
	use overload (); no warnings 'overload';  # '~~' unavailable in Perl 5.8
	use overload
		'""'     => 'to_string',
		'~~'     => 'check',
		'=='     => 'check',
		'eq'     => 'check',
le >>

=item C<< FileName >>

=item C<< FileUri >>

=back

They can be used like this:

	if ($file ~~ FileHandle)
	{
		...
	}

Note that there does exist a L<FileHandle> package in Perl core. This
mod
Scalar-Does ( T/TO/TOBYINK/Scalar-Does-0.203.tar.gz, TOBYINK, 2017; MetaCPAN )
Scalar-Does/lib/Scalar/Does.pm ( view source; MetaCPAN )
=> q[bool],
		STRING     => q[""],
		NUMBER     => q[0+],
		REGEXP     => q[qr],
		SMARTMATCH => q[~~],
		map {; $_ => $_ } qw(
			SCALAR ARRAY HASH CODE REF GLOB
			LVALUE FORMAT IO VSTRING
		)
	);
	
) >>

Called with a single argument, tests C<< $_ >>. Yes, this works with lexical
C<< $_ >>.

  given ($object) {
     when(does ARRAY)  { ... }
     when(does HASH)   { ... }
  }

Note: in Scalar::D
Pollux ( Y/YA/YANICK/Pollux-0.0.2.tar.gz, YANICK, 2017; MetaCPAN )
Pollux/lib/Pollux/Action.pm ( view source; MetaCPAN )
->has_fields ? zip $self->fields->@*, @_ : ()
            };
            $r;
        }
    },
    '~~' => sub {
        my( $self, $other ) = @_;

        no warnings 'uninitialized';
        return $
f ' }

    # smart-matching compare the type between two actions
    print "matching" if $do_stuff ~~ $AddTodo->(); # prints 'matching'

=head1 AUTHOR

Yanick Champoux <yanick@cpan.org>

=head1 COPYRI
OpusVL-AppKit ( N/NE/NEWELLC/OpusVL-AppKit-2.29.tar.gz, NEWELLC, 2017; MetaCPAN )
OpusVL-AppKit/lib/OpusVL/AppKit/Plugin/AppKit.pm ( view source; MetaCPAN )
llowed) = @_;
    my $allow = $c->user && $c->check_any_user_role( @$allowed )
        || 'PUBLIC' ~~ @$allowed;
    return $allow;
}


sub who_can_access
{   
    my $c               = shift;
    my 
Mojolicious-Plugin-HTMLLint ( K/KO/KOORCHIK/Mojolicious-Plugin-HTMLLint-0.06.tar.gz, KOORCHIK, 2017; MetaCPAN )
Mojolicious-Plugin-HTMLLint/lib/Mojolicious/Plugin/HTMLLint.pm ( view source; MetaCPAN )
nt->errors ) {
                my $err_msg = $error->as_string();
                next if $err_msg ~~ $skip;

                $on_error->( $c, "HTMLLint:" . $error->as_string );
            }
        
lexical-underscore ( T/TO/TOBYINK/lexical-underscore-0.004.tar.gz, TOBYINK, 2017; MetaCPAN )
lexical-underscore/lib/lexical/underscore.pm ( view source; MetaCPAN )
score()};
      return $var eq uc($var);
   }
   
   my $thing = 'FOO';
   my $works = 0;
   
   given ( $thing ) {
      when ( is_uppercase ) { $works++ }
   }
   
   ok($works);
   done_testing();

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