CPAN::Groonga

$self = shift;
    given ("$^O") {
        when (/^freebsd$/) { return 'pkg_info'; }
        when (/^netbsd$/) { return 'pkg_info'; }
        when (/^linux$/) { 
            given (Linux::Distribution

g_name {
    my $self = shift;
    my $pkg = $self->{target};
    my $type = $self->{type};

    given (ref $pkg) {
        when ('') {
            return $pkg if ($pkg =~ m/^[A-Za-z0-9\-\_\.\/]+$/);

 is a scalar,
        # debug it?!
        if (defined $func and $Modes->{$level}) {
            given (ref $func) {
                when ("CODE") { return &$func; };
                when ("") { retur

_m->get_modem_property($_, 'MCC') == 262 # Germany
     and $real_m->get_modem_property($_, 'MNC') ~~ qw(07 08 11) # O2
     } @rf;

=head1 METHODS

=head2 new($imp;@impl_args)

Instantiates new modem

 $tree->children );
    return [];
}

sub _match_svn_dirs {
    my @dirs = @_;
    return any { $_ ~~ [qw(trunk branches tags)] } @dirs;
}

sub _children_value {
    return map { $_->value->stringify 

ct->children;
    }
    return \%branches;
}

sub _trunk_or_branches {
    my $tree = shift;
    given ( $tree->value ) {
        when ('trunk') { return $tree }
        when ('branches') {
          

me, $dirent ) = @_;

    my $name = $dirent->name;
    my $tree = Tree::Path::Class->new();

    given ( $dirent->kind ) {
        ## no critic (Variables::ProhibitPackageVars)
        when ($SVN::Nod

 = $self->bot->pocoirc->channel_list( $chan );
        # don't tell Gianni I used ~~
        @nick_list = grep { $_ ~~ @all_nicks && $_ ne $self->bot->nick } @nick_list;

        my $extra = '';
     

 sub {
        (ref($_[0])
            and (local $_ = $getter->($_[0], $attr)))
            ? ($_ ~~ $val)
            : 0;
    };
}


sub _gen_less_than_sub {

    my ($context, $val, $attr) = @_;

   # do we have a log object as an attribute?
    my $is_logging = 0;
    $is_logging = 1 if 'log' ~~ @methods && Scalar::Util::blessed $self->log eq 'Thorium::Log';

    if ($meta->is_immutable) {
  

d dumping.
    for my $method (@methods) {

        # avoid deep recursion
        next if $method ~~ @_skip_methods;
        next if $method eq 'meta' && !$self->trace_meta;
        push(@_skip_metho

   # do we have a log object as an attribute?
    my $is_logging = 0;
    $is_logging = 1 if 'log' ~~ @methods && Scalar::Util::blessed $self->log eq 'Thorium::Log';

    $dbh->{'Callbacks'} = {
     

d_parameters;
    Carp::croak("Attempt to access non-existant parameter $key")
        unless $key ~~ @allowed;

    # quit if this parameter has already been processed
    return if exists $$ref{$key

d_parameters;
    Carp::croak("Attempt to create non-existant parameter $key")
        unless $key ~~ @allowed;

    my $caller   = caller;
    my $op = $_[-1];

    if ( # see http://rt.cpan.org/Publ

elf->idx+$offset) ~~ @{$self->all_latin_vowels}) {
            return 0;
        }
    }

    return 1;

}

sub _is_current_a_vowel {
    my ($seq) = @_;

    return $seq->current ~~ @{$seq->all_latin

rent_a_vowel
        and ($self->at_start or $self->wrote_vowel)
        and not (  $self->current ~~ @{$self->types_of_i}
            and $self->match_vowel_after
            and ($self->match_before

		and    sprintf('{%s}%s', $current_element->namespaceURI, $current_element->localname)
		         ~~ ['{}'.$self->{options}{bookmark_start}, $self->{options}{bookmark_start}]
		) {
			@current_proper

stance, here are some operators that
choose to handle C<*> and give it special meaning:

    if $x ~~ 1..* {...}                 # if 1 <= $x <= +Inf
    my ($a,$b,$c) = "foo" xx *;         # an arbit

# means 'a' xx Inf
    1,*         # means 1,*  :)

    $a = *      # just assigns Whatever
    $a ~~ *     # just matches Whatever

Note that the last two also do not autocurry C<WhateverCode>, becau

sign if $val~~Int or $val~~Str

Fancier type constraints may be expressed through a subtype:

    subset Shinola of Any where {.does(DessertWax) and .does(FloorTopping)};
    if $shimmer ~~ Shinola {.

lass

=back

=head2 C<<< comb >>>

=over

=item (string method) - $str.comb(/pattern/) equals $str ~~ m:g/pattern/, except it returns the list of findings, not a match object like .match aka m//; defa

<<< match >>>

=over

=item (string method) - method alias to m//, $str.match( /pat/ ) equals $str ~~ s/pat/;, returns a match object

=back

=head2 C<<< max >>>

=over

=item (array op & method) - re

over

=item (string method) - method alias to s///, $str.subst( /pat/, "replacement" ) equals $str ~~ s/pat/"replacement/;

=back

=head2 C<<< substr >>>

=over

=item (string method) - the scalar sub

enote\.(\w+)$/;
        my $key = $1;
        my $value = getfattr($note->file, $attr);

        given ($key) {
            when ('key') {
                $note->key($value);
                $has_simp

modifydate->iso8601,
                $local_note->modifydate->iso8601
            );
            given (
                DateTime->compare_ignore_floating(
                    $remote_note->modifydate

:Class::File $file)
{
    my $mod_time = DateTime->from_epoch(epoch => $file->stat->mtime);

    given (DateTime->compare($mod_time, $note->modifydate)) {
        when (0) {

            # no change
 

che ~~ @lecache)
#    {
#        debug(1,"WARNING: big-endian and little-endian HUFF cache",
#              " tables are different in record ",$currentrecord,"!");
#    }
#    unless(@basetable ~~ @le

 what database driver
    # we are using, and issue the appropriate syntax. Eventually. TODO
    given(lc $self->_dbh->{Driver}{Name}) {
     	when ('mysql') { 
            my $sth = $self->_dbh->prep

nzip => $pif,
           -d => $path ], '>', '/dev/null';

    my $ok = $status ?
        ($status ~~ [1, 1<<8] ? 1 : 0) # oddity of unzip 'warning' status
        : 1;

    if ($ok) {
        return;

ts, 0, scalar( @_string_formats );

        my %params;
        $params{ $_boolean_formats[$_] } = ~~1
            for grep { $boolean_parts[$_] } 0 .. $#_boolean_formats;

        $params{ $_integer_

 1: lines 'file'
    @_ or return enlist { <$fh> // () };

    # confess if not 2nd form
    $_[0] ~~ 'chomp' or confess 'cannot handle parameters ' , join ',', @_ ;

    # lines chomp => 'file'
    e

rm->readline("Enter choice: ");
	exit if ( $test =~ /q/i );
	exit if !( $test ~~ [ 1, 2, 3, 4, 5 ] );
	
	my $deck;
	given ($test) {
		when (/1/) { $deck = VANAMBURG::BCS->new; }
		when (/2/) { $deck =

o Top
	END
	say $sub_menu;
	my $direction = $term->readline("Enter choice: ");
	if ( !( $direction ~~ [ 1, 2 ] ) ) {
		say "invalid option";
		exit;
	}
	
	my @locations = ( 1 .. 52 );
	@locations = re

tern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $f

;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
       

rs{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }