view release on metacpan or search on metacpan
lib/Acme/MorningMusume/ShinMember.pm view on Meta::CPAN
=cut
sub info {
my $musume = Acme::MorningMusume->new;
my @musume = $musume->select('age', 0, '<'); # all of 'em!
my ($mom, $dad) = @musume[rand(@musume), rand(@musume)];
my %attributes;
$attributes{first_name_en} = $mom->first_name_en;
$attributes{first_name_ja} = $mom->first_name_ja;
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
}
sub _autoflush {
my($fh) = shift;
my $old_fh = select $fh;
$| = 1;
select $old_fh;
}
my($Testout, $Testerr);
sub _dup_stdhandles {
view release on metacpan or search on metacpan
lib/Acme/Nogizaka46.pm view on Meta::CPAN
else {
return sort {$a->$type <=> $b->$type} @members;
}
}
sub select {
my ($self, $type, $num_or_str, $operator, @members) = @_;
$self->_die('invalid operator was passed in')
unless grep {$operator eq $_} qw(== >= <= > < eq ne);
lib/Acme/Nogizaka46.pm view on Meta::CPAN
my @at_some_time_members = $nogizaka->members(DateTime->now->subtract(years => 5));
# retrieve the members under some conditions
my @sorted_by_age = $nogizaka->sort('age', 1);
my @sorted_by_class = $nogizaka->sort('class', 1);
my @selected_by_age = $nogizaka->select('age', 18, '>=');
my @selected_by_class = $nogizaka->select('class', 5, '==');
=head1 DESCRIPTION
"Nogizaka46" is a Japanese female idol group.
lib/Acme/Nogizaka46.pm view on Meta::CPAN
Returns the members sorted by the I<$type> field.
=back
=head2 select ( $type, $number, $operator [, @members] )
=over 4
# $type can be one of the same values above:
my @selected_members = $nogizaka->select('age', 18, '>=');
Returns the members satisfy the given I<$type> condition. I<$operator>
must be a one of '==', '>=', '<=', '>', and '<'. This method compares
the given I<$type> to the member's one in the order below:
view release on metacpan or search on metacpan
t/00_load_script.t view on Meta::CPAN
};
}
eval {
local @ARGV = ('-v');
select NULL;
require 'scripts/lc.pl';
};
like($@,qr/\Aexit ok\n/s,'scripts/lc.pl compiled ok');
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/12x5_ca.pod view on Meta::CPAN
=for ToBeUsedInTheFuture =head3 L'extracte d'un compte de La Caixa (2)
# home page
$mech->get(
"http://lacaixa.mobi/apl/index_es.html?select=true"
);
$mech->follow_link(url_regex => qr/es-mobi-menu-lo/);
# fes login
$mech->submit_form(
view release on metacpan or search on metacpan
lib/Acme/PPIx/MetaSyntactic.pm view on Meta::CPAN
=item C<< theme >>
The L<Acme::MetaSyntactic> object that will be used to obtain new names.
If your source code is more than a couple of lines; choose one that provides
a large selection of names.
Can be coerced from C<< Str >> (theme name).
Defaults to the C<< "haddock" >> theme.
view release on metacpan or search on metacpan
lib/Acme/Padre/PlayCode.pm view on Meta::CPAN
=head1 DESCRIPTION
This is a simple plugin to run L<Acme::PlayCode> on your source code.
If there is any selection, just run with the text you selected.
If not, run with the whole text from selected document.
=head1 AUTHOR
Fayland Lam, C<< <fayland at gmail.com> >>
view release on metacpan or search on metacpan
lib/Acme/Parataxis.c view on Meta::CPAN
#define UNLOCK(m) LeaveCriticalSection(&m)
#define LOCK_INIT(m) InitializeCriticalSection(&m)
#else
#include <pthread.h>
#include <sched.h>
#include <sys/select.h>
#include <sys/socket.h>
#include <sys/syscall.h>
#include <sys/time.h>
#include <ucontext.h>
#include <unistd.h>
lib/Acme/Parataxis.c view on Meta::CPAN
tv.tv_usec = 10000;
fd_set work_fds = fds;
if (job->type == TASK_READ)
#ifdef _WIN32
res = select(0, &work_fds, NULL, NULL, &tv);
#else
res = select(fd + 1, &work_fds, NULL, NULL, &tv);
#endif
else
#ifdef _WIN32
res = select(0, NULL, &work_fds, NULL, &tv);
#else
res = select(fd + 1, NULL, &work_fds, NULL, &tv);
#endif
if (res != 0)
break;
view release on metacpan or search on metacpan
lib/Acme/Perl/VM.pm view on Meta::CPAN
return $sv;
}
sub defoutgv{
no strict 'refs';
return \*{ select() };
}
sub gv_fullname{
my($gv, $prefix) = @_;
$prefix = '' unless defined $prefix;
view release on metacpan or search on metacpan
inc/Module/Install/ReadmeFromPod.pm view on Meta::CPAN
eval { require App::pod2pdf; }
or die "Could not generate $out_file because pod2pdf could not be found\n";
my $parser = App::pod2pdf->new( @$options );
$parser->parse_from_file($in_file);
open my $out_fh, '>', $out_file or die "Could not write file $out_file:\n$!\n";
select $out_fh;
$parser->output;
select STDOUT;
close $out_fh;
return $out_file;
}
view release on metacpan or search on metacpan
Playwright.pm view on Meta::CPAN
'gazes longingly at Pietro', 'dances a merry jig',
'thinks happy thoughts', 'falls to the floor',
'tries to think of something funny to say', 'yearns for the good old days',
'turns on the radio', 'turns off the radio',
'turns on the television', 'turns off the television',
'selects a book from the bookshelf', 'concentrates',
'burps', 'clucks like a chicken',
'motions toward the door', 'plops down on the sofa',
'looks around suspiciously', 'beings folding laundry',
'takes a pan of brownies from the oven', 'thinks of the color blue',
"pours vinegar in Karen's shoes", 'eats a pickle',
view release on metacpan or search on metacpan
=cut
STDOUT->autoflush(1);
STDERR->autoflush(1);
my $select = IO::Select->new();
$select->add(*STDIN);
my %actions = ( Initialize => \&initialize,
YourName => \&your_name,
YourColour => \&your_color,
GameOption => \&game_option,
###
sub process_lines
{
my $self = shift;
while(my @l = $select->can_read(0.1))
{
my $hd = $l[0];
my $msg = <$hd>;
chomp($msg);
print LOG "<--- $msg\n" if $self->{Log};
view release on metacpan or search on metacpan
lib/Acme/RandomQuote/Base.pm view on Meta::CPAN
return bless \$filename => $self;
}
=head2 get_random_quote
Returns a random line from the selected file.
print $foo->get_random_quote();
=cut
view release on metacpan or search on metacpan
t/pms/RayApp.pm view on Meta::CPAN
}
1;
and in the XSLT you will get to them for example via
<xsl:value-of select="$my_relative_url"/>
=item RayAppStyleStaticParams / RAYAPP_STYLE_STATIC_PARAMS
When a static .xml file is processed into HTML, the XSL
transformation is run, even if there was no application invocation
view release on metacpan or search on metacpan
telldir open unpack return and unlink write chroot
hex bless utime split chown split close rmdir join
exp fileno getc sleep redo glob mkdir stat ne pack
reverse getpwnam next lstat gethostent and getpgrp
eq log ord time xor chr undef and eval caller and
printf srand lstat chown chdir syscall open select
eq -w closedir sleep chr split and quotemeta reset
require ne closedir sleep chr undef or pack unpack
length splice shift umask readpipe pos xor defined
join system and die or do exit if defined require
hex defined undef or sprintf localtime cmp time or
view release on metacpan or search on metacpan
lib/Acme/SList/XSLT.pm view on Meta::CPAN
<html>
<body>
<title>Test</title>
Data:
<hr/>
<xsl:for-each select="index/data">
<p>Test: *** <xsl:value-of select="."/> ***</p>
</xsl:for-each>
</body>
</html>
</xsl:template>
</xsl:stylesheet>
view release on metacpan or search on metacpan
tidyall.ini view on Meta::CPAN
[PerlTidy]
argv = -noll -blbp=0 -l=100
select = {bin,lib,t}/**/*.{pl,pm,t}
[PerlCritic]
select = lib/**/*.pm
argv = --profile $ROOT/perlcriticrc
except_modes = editor
[Perl::AlignMooseAttributes]
select = lib/**/*.pm
[Perl::IgnoreMethodSignaturesSimple]
select = {bin,lib,t}/**/*.{pl,pm,t}
view release on metacpan or search on metacpan
"X_No_Archive" : "Yes",
"abstract" : "Rarest-First Selection Algorithm",
"author" : [
"Sanko Robinson <sanko@cpan.org>"
],
"description" : "Implements the classic rarest-first selection algorithm for distributed data systems.",
"dynamic_config" : 0,
"generated_by" : "App::mii v1.0.0",
"keywords" : [
"algorithm",
"selection",
"rarest-first",
"p2p",
"distributed"
],
"license" : [
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
}
sub _autoflush {
my($fh) = shift;
my $old_fh = select $fh;
$| = 1;
select $old_fh;
}
my($Testout, $Testerr);
sub _dup_stdhandles {
view release on metacpan or search on metacpan
lib/Acme/Sort/Bozo.pm view on Meta::CPAN
=head1 SYNOPSIS
The Bozo is a sort that is based on a "swap and test" paradigm. It works by
first testing whether the input is in sorted order. If so, return the list. But if not,
randomly select two elements from the list, swap them, and test again. Repeat until
the shuffle comes back sorted.
use Acme::Sort::Bozo;
my @unsorted = qw/ E B A C D /;
view release on metacpan or search on metacpan
local/lib/perl5/IO/Async.pm view on Meta::CPAN
of the abstract collection management tasks, and leaves the actual OS
interactions to a particular subclass for the purpose.
L<IO::Async::Loop::Poll> uses an L<IO::Poll> object for this test.
L<IO::Async::Loop::Select> uses the C<select(2)> syscall.
Other subclasses of loop may appear on CPAN under their own dists; see the
L</SEE ALSO> section below for more detail.
As well as these general-purpose classes, the L<IO::Async::Loop> constructor
view release on metacpan or search on metacpan
The test case scripts are located in directory t/ under the root
build directory, in files named t/*.t .
When the tests are run, those that are not applicable in your OS or
with the build options that you selected will be skipped.
Running a subset of the tests
------------------------------
To run some of the tests, specify TEST_FILES as in the following
view release on metacpan or search on metacpan
tidyall.ini view on Meta::CPAN
[PerlTidy]
select = **/*.{pl,pm,t,psgi}
ignore = t/00-*
ignore = t/author-*
ignore = t/release-*
ignore = blib/**/*
ignore = .build/**/*
ignore = Acme-Test-DROLSKY-*/**/*
argv = --profile=$ROOT/perltidyrc
[PerlCritic]
select = **/*.{pl,pm,t,psgi}
ignore = t/00-*
ignore = t/author-*
ignore = t/release-*
ignore = blib/**/*
ignore = .build/**/*
view release on metacpan or search on metacpan
lib/Acme/Text/Shorten/ForTwitter.pm view on Meta::CPAN
=head3 new
my $shortener = Acme::Text::Shorten::ForTwitter->new;
Creates a new shortener with all of the rules selected at
import time.
=head2 Object Methods
=head3 shorten
view release on metacpan or search on metacpan
t/lib/Capture/Tiny.pm view on Meta::CPAN
my ($which, $stash) = @_; # $which is "stdout" or "stderr"
# setup pipes
$stash->{$_}{$which} = IO::Handle->new for qw/tee reader/;
pipe $stash->{reader}{$which}, $stash->{tee}{$which};
# _debug( "# pipe for $which\: " . _name($stash->{tee}{$which}) . " " . fileno( $stash->{tee}{$which} ) . " => " . _name($stash->{reader}{$which}) . " " . fileno( $stash->{reader}{$which}) . "\n" );
select((select($stash->{tee}{$which}), $|=1)[0]); # autoflush
# setup desired redirection for parent and child
$stash->{new}{$which} = $stash->{tee}{$which};
$stash->{child}{$which} = {
stdin => $stash->{reader}{$which},
stdout => $stash->{old}{$which},
view release on metacpan or search on metacpan
perl -MAcme::Tools -le 'print for percentile([0,1,25,50,75,99,100], 1,4,6,7,8,9,22,24,39,49,555,992)'
And like this in Oracle-databases:
select
percentile_cont(0.00) within group(order by n) per0,
percentile_cont(0.01) within group(order by n) per1,
percentile_cont(0.25) within group(order by n) per25,
percentile_cont(0.50) within group(order by n) per50,
percentile_cont(0.75) within group(order by n) per75,
percentile_cont(0.99) within group(order by n) per99,
percentile_cont(1.00) within group(order by n) per100
from (
select 0+regexp_substr('1,4,6,7,8,9,22,24,39,49,555,992','[^,]+',1,i) n
from dual,(select level i from dual connect by level <= 12)
);
(Oracle also provides a similar function: C<percentile_disc> where I<disc>
is short for I<discrete>, meaning no interpolation is taking
place. Instead the closest number from the data set is picked.)
Input: two or more arrayrefs with accordingly x, y, z and so on number of elements.
Output: An array of x * y * z number of arrayrefs. The arrays being the cartesian product of the input arrays.
It can be useful to think of this as joins in SQL. In C<select> statements with
more than one table behind C<from>, but without any C<where> condition to join the tables.
B<Advanced usage, with condition(s):>
B<Input:>
Resembles the pivot table function in Excel.
C<pivot()> is used to spread out a slim and long table to a visually improved layout.
For instance spreading out the results of C<group by>-selects from SQL:
pivot( arrayref, columnname1, columnname2, ...)
pivot( ref_to_array_of_arrayrefs, @list_of_names_to_down_fields )
#my $sth=do{$Sth{$Dbh,$q} ||= $Dbh->prepare_cached($q)};
my $sth=$Dbh->prepare_cached($q);
$sth->execute(@b);
my @r=$sth->fetchrow_array;
$sth->finish if $$Dbh{Driver}{Name} eq 'SQLite';
#$dbh->selectrow_array($statement);
return @r==1?$r[0]:@r;
}
sub drows {
}
sub drowc {
view release on metacpan or search on metacpan
lib/Acme/UPnP.pm view on Meta::CPAN
my $end_time = time + 2.5;
while ( time < $end_time ) {
my $left = $end_time - time;
last if $left <= 0;
if ( select( $rout = $rin, undef, undef, $left ) ) {
my $data;
my $addr = $sock->recv( $data, 4096 );
if ( defined $data && $data =~ /Location:\s*(https?:\/\/[^\s\r\n]+)/i ) {
$found_location = $1;
last;
view release on metacpan or search on metacpan
To Do Items
* Better look-alike character selection
* Automatically inserting application between input/output
view release on metacpan or search on metacpan
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])socket([^\w\d])/$1wwWWWWw$2/g;
s/([^\$\w\d])shmget([^\w\d])/$1wwWWWwW$2/g;
s/([^\$\w\d])shmctl([^\w\d])/$1wwWWWww$2/g;
s/([^\$\w\d])semget([^\w\d])/$1wwWWwWW$2/g;
s/([^\$\w\d])semctl([^\w\d])/$1wwWWwWw$2/g;
s/([^\$\w\d])select([^\w\d])/$1wwWWwwW$2/g;
s/([^\$\w\d])scalar([^\w\d])/$1wwWWwww$2/g;
s/([^\$\w\d])rindex([^\w\d])/$1wwWwWWW$2/g;
s/([^\$\w\d])return([^\w\d])/$1wwWwWWw$2/g;
s/([^\$\w\d])rename([^\w\d])/$1wwWwWwW$2/g;
s/([^\$\w\d])printf([^\w\d])/$1wwWwWww$2/g;
lib/Acme/W.pm view on Meta::CPAN
s/([^\$\w\d])wwWWWWw([^\w\d])/$1socket$2/g;
s/([^\$\w\d])wwWWWwW([^\w\d])/$1shmget$2/g;
s/([^\$\w\d])wwWWWww([^\w\d])/$1shmctl$2/g;
s/([^\$\w\d])wwWWwWW([^\w\d])/$1semget$2/g;
s/([^\$\w\d])wwWWwWw([^\w\d])/$1semctl$2/g;
s/([^\$\w\d])wwWWwwW([^\w\d])/$1select$2/g;
s/([^\$\w\d])wwWWwww([^\w\d])/$1scalar$2/g;
s/([^\$\w\d])wwWwWWW([^\w\d])/$1rindex$2/g;
s/([^\$\w\d])wwWwWWw([^\w\d])/$1return$2/g;
s/([^\$\w\d])wwWwWwW([^\w\d])/$1rename$2/g;
s/([^\$\w\d])wwWwWww([^\w\d])/$1printf$2/g;
view release on metacpan or search on metacpan
tidyall.ini view on Meta::CPAN
; Install Code::TidyAll
; run "tidyall -a" to tidy all files
; run "tidyall -g" to tidy only files modified from git
[PerlTidy]
select = {lib,t}/**/*.{pl,pm,t}