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/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
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
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}
view release on metacpan or search on metacpan
lib/Acrux/DBI.pm view on Meta::CPAN
Default: none
=head2 query
my $res = $dbi->query('select * from test');
my $res = $dbi->query('insert into test values (?, ?)', @values);
Execute a blocking statement and return a L<Acrux::DBI::Res> object with the results.
You can also append a 'bind_callback' to perform binding value manually:
view release on metacpan or search on metacpan
lib/Acme/Crux/Plugin/Log.pm view on Meta::CPAN
=head2 provider
$app->plugin(Log => undef, {provider => 'syslog'});
This option select the provider of logging. Avalabled providers:
C<logger>, C<handler>, C<file> and C<syslog>.
Default: C<logprovider> command line option or C<logprovider> application argument
or C<LogProvider> configuration value or C<file> otherwise
view release on metacpan or search on metacpan
lib/Activator/DB.pm view on Meta::CPAN
## begin legacy
## =item B<getcol_arrayref>($sql, $bind, $colsref)
##
## Prepare and Execute a SQL statement on the default database, and
## get an arrayref of values back via DBI::selectcol_arrayref()
##
## Args:
## $sql => sql statement
## $bind => optional bind values arrayref for the sql statement
## $colsref => optional arrayref containing the columns to return
lib/Activator/DB.pm view on Meta::CPAN
## an arrayref of values for each specified col of data from the query (default is the first column). So each row of data from the query gives one or more sequential values in the output arrayref.
## reference to an empty array when there is no matching data
##
##
## Usage example
## my $ary_ref = getcol_arrayref("select id, name from table",{Columns=>[1,2]});
## my %hash = @$ary_ref; # now $hash{$id} => $name
##
## # to just get an arrayref of id values
## my $ary_ref = getcol_arrayref("select id, name from table");
##
## Throws
## connect.failure - on connect failure
## dbi.failure - on failure of DBI::selectcol_arrayref
##
## =cut
##
## sub getcol_arrayref {
## my ( $sql, $bind, $colsref ) = @_;
lib/Activator/DB.pm view on Meta::CPAN
##
## my $dbh = &get_dbh(); # may throw connect.failure
##
## eval {
## $colref
## = $dbh->selectcol_arrayref( $sql, { Columns => $colsref },
## @$bind );
## };
## if ( $@ ) {
## Activator::Exception::DB->throw( 'dbi', 'failure', $dbh->errstr || $@);
## }
lib/Activator/DB.pm view on Meta::CPAN
##
## Reference to an empty hash when there is no matching data
##
## Usage example
## # for table with (id,name) values: ('goog', 'google'), (yhoo, 'yahoo')
## my $hashref = getall_arrayrefs("select id, name from table",[], 'id'});
## # $hashref = {
## # {goog} => {id=>'goog', name=>'google'},
## # {yhoo} => {id=>'yhoo', name=>'yahoo'}
## # }
## my $hashref = getall_arrayrefs("select id, name from table",[]}, 2);
## # $hashref = {
## # {google} => {id=>'goog', name=>'google'},
## # {yahoo} => {id=>'yhoo', name=>'yahoo'}
## # }
##
view release on metacpan or search on metacpan
lib/ActiveRecord/Simple.pm view on Meta::CPAN
if ( $self->dbh->{Driver}{Name} eq 'Pg' ) {
if ($primary_key) {
$sql_stm .= ' RETURINIG ' . $primary_key if $primary_key;
$sql_stm = ActiveRecord::Simple::Utils::quote_sql_stmt($sql_stm, $self->dbh->{Driver}{Name});
$pkey_val = $self->dbh->selectrow_array($sql_stm, undef, @bind);
}
else {
my $sth = $self->dbh->prepare(
ActiveRecord::Simple::Utils::quote_sql_stmt($sql_stm, $self->dbh->{Driver}{Name})
);