Result:
found more than 820 distributions - search limited to the first 2001 files matching your query
( run in 0.499 )
Alvis-Convert
view release on metacpan or search on metacpan
lib/Alvis/Canonical.pm view on Meta::CPAN
##############################################################################
my $DEF_WARNINGS=0; # add warning comments about fixes to the doc?
my $DEF_CONVERT_CHAR_ENTS=1; # convert "relevant" char ents
my $DEF_CONVERT_NUM_ENTS=1; # convert numerical entities
my $DEF_SRC_ENC=undef; # guess the source encoding
my $DEBUG=0;
#############################################################################
#
lib/Alvis/Canonical.pm view on Meta::CPAN
convertCharEnts Convert HTML symbolic character entities to UTF-8
characters? Default: yes.
convertNumEnts Convert HTML numerical character entities to UTF-8
characters? Default: yes.
sourceEncoding the encoding of the source documents. Default: undef,
which means it is guessed.
my $C=Alvis::Canonical->new(convertCharEnts=>1,
convertNumEnts=>1);
if (!defined($C))
{
Alvis-NLPPlatform
view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform/Convert.pm view on Meta::CPAN
"HTML version of an article failed. " . $Alvis_converter->errmsg();
$Alvis_converter->clearerr();
return 2;
}
# my $e=Alvis::Document::Encoding->new();
# my $type_guesser=Alvis::Document::Type->new();
# my ($doc_type,$doc_sub_type)=$type_guesser->guess($alvisXML);
# my $doc_encoding=$e->guess_and_convert($alvisXML,$doc_type,$doc_sub_type, "UTF-8");
# if (!defined($doc_encoding))
# {
# die('Cannot guess. ' . $e->errmsg());
# }
# print STDERR "$doc_type,$doc_sub_type,$doc_encoding\n";
# print STDERR $e->guess($alvisXML);
# warn "Checking the encoding\n";
# if (!Encode::is_utf8($alvisXML)) {
# warn "Not a UTF-8, assume to be a latin-1 document\n";
# print STDERR "Converting in UTF8...\n";
# Encode::from_to($alvisXML, "iso-8859-1", "UTF-8");
# print STDERR "done\n";
# }
# print STDERR $alvisXML;
# exit;
# my $decoder = Encode::Guess->guess_encoding($alvisXML, /UTF-8/);
# if (!ref($decoder)) {
# warn "Not a UTF-8, assume to be a latin-1 document\n";
# print STDERR "Converting in UTF8...\n";
# $alvisXML = $decoder->decode($alvisXML);
# # Encode::from_to($alvisXML, "iso-8859-1", "UTF-8");
Alzabo
view release on metacpan or search on metacpan
lib/Alzabo/Driver/PostgreSQL.pm view on Meta::CPAN
Returns the last id created for a sequenced column.
=head2 identifier_length
Returns the maximum identifier length allowed by the database. This
is really a guess based on the server version, since the actual value
is set when the server is compiled.
=head1 BUGS
In testing, I found that there were some problems using Postgres in a
Amazon-API
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
application/x-amz-json-1.0
application/x-amz-json-1.1
application/x-www-form-urlencoded
Accordingly, the C<invoke_api()> can be passed the Content-Type or
will try to make "best guess" based on the input parameter you passed.
It guesses using the following decision tree:
=over 5
=item * If the Content-Type parameter is passed as the third argument, that is used. Full stop.
Amazon-DynamoDB
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
if (ref($v)) {
# An array maps to a sequence
if (ref($v) eq 'ARRAY') {
# Any refs mean we're sending binary data
# Start by guessing we have an array of numeric strings,
# but on the first value we encoutner that is either a reference
# or a variable that isn't an integer or numeric. Stop.
$type = 'NS';
foreach my $value (@$v) {
if (ref($value)) {
Amethyst
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Zippy.pm view on Meta::CPAN
GOOD-NIGHT, everybody ... Now I have to go administer FIRST-AID to my pet LEISURE SUIT!!
HAIR TONICS, please!!
Half a mind is a terrible thing to waste!
Hand me a pair of leather pants and a CASIO keyboard -- I'm living for today!
Has everybody got HALVAH spread all over their ANKLES?? ... Now, it's time to "HAVE A NAGEELA"!! ... he dominates the DECADENT SUBWAY SCENE.
He is the MELBA-BEING ... the ANGEL CAKE ... XEROX him ... XEROX him -- He probably just wants to take over my CELLS and then EXPLODE inside me like a BARREL of runny CHOPPED LIVER! Or maybe he'd like to PSYCHOLIGICALLY TERRORISE ME until I have no ...
HELLO KITTY gang terrorizes town, family STICKERED to death!
HELLO, everybody, I'm a HUMAN!!
Hello, GORRY-O!! I'm a GENIUS from HARVARD!!
Hello. I know the divorce rate among unmarried Catholic Alaskan females!!
Hello. Just walk along and try NOT to think about your INTESTINES being almost FORTY YARDS LONG!!
Hello... IRON CURTAIN? Send over a SAUSAGE PIZZA! World War III? No thanks!
Hello? Enema Bondage? I'm calling because I want to be happy, I guess ...
Here I am at the flea market but nobody is buying my urine sample bottles ...
Here I am in 53 B.C. and all I want is a dill pickle!!
Here I am in the POSTERIOR OLFACTORY LOBULE but I don't see CARL SAGAN anywhere!!
Here we are in America ... when do we collect unemployment?
Hey, wait a minute!! I want a divorce!! ... you're not Clint Eastwood!!
Amethyst/Brain/Infobot/Module/Zippy.pm view on Meta::CPAN
I feel like a wet parking meter on Darvon!
I feel like I am sharing a ``CORN-DOG'' with NIKITA KHRUSCHEV ...
I feel like I'm in a Toilet Bowl with a thumbtack in my forehead!!
I feel partially hydrogenated!
I fill MY industrial waste containers with old copies of the "WATCHTOWER" and then add HAWAIIAN PUNCH to the top ... They look NICE in the yard ...
I guess it was all a DREAM ... or an episode of HAWAII FIVE-O ...
I guess you guys got BIG MUSCLES from doing too much STUDYING!
I had a lease on an OEDIPUS COMPLEX back in '81 ...
I had pancake makeup for brunch!
I have a TINY BOWL in my HEAD
I have a very good DENTAL PLAN. Thank you.
I have a VISION! It's a RANCID double-FISHWICH on an ENRICHED BUN!!
Amon2
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
"bootstrap/css/bootstrap.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap.css\",\"../../scss/mixi...
"bootstrap/dropdown.js" => "/*!\n * Bootstrap dropdown.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/dropdown.js.map" => "{\"version\":3,\"file\":\"dropdown.js\",\"sources\":[\"../src/dropdown.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): dropdown...
"bootstrap/index.js" => "/**\n * --------------------------------------------------------------------------\n * Bootstrap (v4.4.0): index.js\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)\n * ------------------------...
"bootstrap/index.js.map" => "{\"version\":3,\"sources\":[\"../src/index.js\"],\"names\":[\"\$\",\"TypeError\",\"version\",\"fn\",\"jquery\",\"split\",\"minMajor\",\"ltMajor\",\"minMinor\",\"minPatch\",\"maxMajor\",\"Error\"],\"mappings\":\"AAaA;;;;...
"bootstrap/js/bootstrap.bundle.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boo...
"bootstrap/js/bootstrap.bundle.js.map" => "{\"version\":3,\"file\":\"bootstrap.bundle.js\",\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../...
"bootstrap/js/bootstrap.bundle.min.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs...
"bootstrap/js/bootstrap.bundle.min.js.map" => "{\"version\":3,\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../node_modules/popper.js/dist/e...
"bootstrap/js/bootstrap.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstrap/...
"bootstrap/js/bootstrap.js.map" => "{\"version\":3,\"file\":\"bootstrap.js\",\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../js/src/dropdow...
"bootstrap/js/bootstrap.min.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootst...
"bootstrap/js/bootstrap.min.js.map" => "{\"version\":3,\"sources\":[\"../../js/src/util.js\",\"../../js/src/alert.js\",\"../../js/src/button.js\",\"../../js/src/carousel.js\",\"../../js/src/collapse.js\",\"../../js/src/dropdown.js\",\"../../js/src/...
"bootstrap/modal.js" => "/*!\n * Bootstrap modal.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bootstra...
Android-ElectricSheep-Automator
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
# push pull files
$mother->adb->pull($deviceFile, $localFile);
$mother->adb->push($localFile, $deviceFileOrDir);
# guess what!
my $xmlstr = $mother->dump_current_screen_ui();
=head1 CONSTRUCTOR
=head2 new($params)
Aniki
view release on metacpan or search on metacpan
lib/Aniki.pm view on Meta::CPAN
sub schema { croak 'This is abstract method. (required to call setup method before call it)' }
sub query_builder { croak 'This is abstract method. (required to call setup method before call it)' }
sub filter { croak 'This is abstract method. (required to call setup method before call it)' }
sub last_insert_id { croak 'This is abstract method. (required to call setup method before call it)' }
sub root_row_class { croak 'This is abstract method. (required to call setup method before call it)' }
sub guess_row_class { croak 'This is abstract method. (required to call setup method before call it)' }
sub root_result_class { croak 'This is abstract method. (required to call setup method before call it)' }
sub guess_result_class { croak 'This is abstract method. (required to call setup method before call it)' }
sub handler_class { 'Aniki::Handler' }
# You can override this method on your application.
sub use_prepare_cached { 1 }
sub use_strict_query_builder { 1 }
lib/Aniki.pm view on Meta::CPAN
}
# row
{
my $root_row_class = 'Aniki::Row';
my $guess_row_class = sub { $root_row_class };
if ($args{row}) {
Module::Load::load($args{row}) unless Class::Inspector->loaded($args{row});
$root_row_class = $args{row};
my %table_row_class;
$guess_row_class = sub {
my $table_name = $_[1];
return $table_row_class{$table_name} //= try {
my $table_row_class = sprintf '%s::%s', $root_row_class, camelize($table_name);
Module::Load::load($table_row_class);
return $table_row_class;
lib/Aniki.pm view on Meta::CPAN
return $root_row_class;
};
};
}
$class->meta->add_method(root_row_class => sub { $root_row_class });
$class->meta->add_method(guess_row_class => $guess_row_class);
}
# result
{
my $root_result_class = 'Aniki::Result::Collection';
my $guess_result_class = sub { $root_result_class };
if ($args{result}) {
Module::Load::load($args{result}) unless Class::Inspector->loaded($args{result});
$root_result_class = $args{result};
my %table_result_class;
$guess_result_class = sub {
my $table_name = $_[1];
return $table_result_class{$table_name} //= try {
my $table_result_class = sprintf '%s::%s', $root_result_class, camelize($table_name);
Module::Load::load($table_result_class);
return $table_result_class;
lib/Aniki.pm view on Meta::CPAN
};
};
}
$class->meta->add_method(root_result_class => sub { $root_result_class });
$class->meta->add_method(guess_result_class => $guess_result_class);
}
}
sub preload_all_row_classes {
my $class = shift;
for my $table ($class->schema->get_tables) {
$class->guess_row_class($table->name);
}
}
sub preload_all_result_classes {
my $class = shift;
for my $table ($class->schema->get_tables) {
$class->guess_result_class($table->name);
}
}
sub dbh {
my $self = shift;
lib/Aniki.pm view on Meta::CPAN
croak '(Aniki#update_and_emulate_row) condition must be a Aniki::Row object.' unless blessed $row && $row->isa('Aniki::Row');
my $emulated_row_data = $self->_update_and_emulate_row_data($row, $set);
return $emulated_row_data if $self->suppress_row_objects;
return $self->guess_row_class($row->table_name)->new(
table_name => $row->table_name,
handler => $self,
row_data => $emulated_row_data,
);
}
lib/Aniki.pm view on Meta::CPAN
else {
$row_data{$field->name} = undef;
}
}
return \%row_data if $self->suppress_row_objects;
return $self->guess_row_class($table_name)->new(
table_name => $table_name,
handler => $self,
row_data => \%row_data,
is_new => 1,
);
lib/Aniki.pm view on Meta::CPAN
$opt //= {};
local $self->{suppress_row_objects} = 1 if $opt->{suppress_row_objects};
local $self->{suppress_result_objects} = 1 if $opt->{suppress_result_objects};
my $table_name = exists $opt->{table_name} ? $opt->{table_name} : $self->_guess_table_name($sql);
my $columns = exists $opt->{columns} ? $opt->{columns} : undef;
my $prefetch = exists $opt->{prefetch} ? $opt->{prefetch} : [];
$prefetch = [$prefetch] if ref $prefetch eq 'HASH';
my $prefetch_enabled_fg = @$prefetch && !$self->suppress_row_objects && defined wantarray;
lib/Aniki.pm view on Meta::CPAN
$sth->finish;
if ($self->suppress_result_objects) {
return \@rows if $self->suppress_row_objects;
my $row_class = $self->guess_row_class($table_name);
return [
map {
$row_class->new(
table_name => $table_name,
handler => $self,
lib/Aniki.pm view on Meta::CPAN
)
} @rows
];
}
my $result_class = $self->guess_result_class($table_name);
return $result_class->new(
table_name => $table_name,
handler => $self,
row_datas => \@rows,
suppress_row_objects => $self->suppress_row_objects,
lib/Aniki.pm view on Meta::CPAN
sub new_row_from_hashref {
my ($self, $table_name, $row_data) = @_;
return $row_data if $self->suppress_row_objects;
my $row_class = $self->guess_row_class($table_name);
return $row_class->new(
table_name => $table_name,
handler => $self,
row_data => $row_data,
);
lib/Aniki.pm view on Meta::CPAN
sub new_collection_from_arrayref {
my ($self, $table_name, $row_datas) = @_;
return $row_datas if $self->suppress_result_objects;
my $result_class = $self->guess_result_class($table_name);
return $result_class->new(
table_name => $table_name,
handler => $self,
row_datas => $row_datas,
suppress_row_objects => $self->suppress_row_objects,
);
}
sub _guess_table_name {
my ($self, $sql) = @_;
return $2 if $sql =~ /\sfrom\s+(["`]?)([\w]+)\1\s*/sio;
return;
}
lib/Aniki.pm view on Meta::CPAN
=head3 C<preload_all_result_classes>
Preload all result classes.
=head3 C<guess_result_class($table_name) : ClassName>
Guesses result class by table name.
=head3 C<guess_row_class($table_name) : ClassName>
Guesses row class by table name.
=head3 C<new(%args) : Aniki>
lib/Aniki.pm view on Meta::CPAN
=over 4
=item C<table_name: Str>
This is table name using row/result class guessing.
=item C<columns: ArrayRef[Str]>
List for retrieving columns from database.
Anki-Import
view release on metacpan or search on metacpan
[DZ] beginning to build Anki-Import
[Git::NextVersion] Bumping version from 0.021 to 0.022
[PodVersion] couldn't find '=head1 NAME' in bin/anki_import, not adding '=head1 VERSION'
[PodVersion] couldn't find '=head1 NAME' in lib/Anki/Import.pm, not adding '=head1 VERSION'
[GitHub::Meta] Getting GitHub repository info
[DZ] guessing dist's main_module is lib/Anki/Import.pm
[DZ] writing Anki-Import in Anki-Import-0.022
[DZ] building archive with Archive::Tar::Wrapper
[DZ] writing archive to Anki-Import-0.022.tar.gz
[Git::Check] branch master has some untracked files:
[Git::Check] .build/WHdD5VWtGU/Anki-Import-0.022/Changes
AnnoCPAN
view release on metacpan or search on metacpan
lib/AnnoCPAN/DBI.pm view on Meta::CPAN
for my $note (@notes) {
for my $podver (@podvers) {
my ($np) = AnnoCPAN::DBI::NotePos->search_podver_note(
$podver, $note);
unless ($np) {
$note->guess_section($podver);
}
}
}
# delete the other pods
lib/AnnoCPAN/DBI.pm view on Meta::CPAN
sub translate_notes {
my ($self) = @_;
for my $podver ($self->podvers) {
for my $note ($podver->pod->notes) {
$note->guess_section($podver);
}
}
}
sub count_visible_notes {
lib/AnnoCPAN/DBI.pm view on Meta::CPAN
close STDERR;
# Now "translate" the note to other versions
my $pod = $data->{pod};
for my $pv ($pod->podvers) {
if ($pv->id != $podver->id) { # note was not added here
$note->guess_section($pv);
}
}
exit;
}
return $note; # only parent returns
}
sub simple_create { shift->SUPER::create(@_) }
sub simple_update { shift->SUPER::update(@_) }
sub guess_section {
my ($self, $podver) = @_;
# delete cached html
$podver->flush_cache;
AntTweakBar
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
AnyData2
view release on metacpan or search on metacpan
lib/AnyData2/Format/CSV.pm view on Meta::CPAN
constructs a CSV accessor, passes all options down to C<csv_class> beside
C<csv_class>, C<csv_cols> and C<csv_skip_first_row>. C<csv_class> is used
to instantiate the parser and prefers L<Text::CSV_XS> over L<Text::CSV>
by default. When C<csv_skip_first_row> is set to a true value, the first
line of the csv isn't used to guess the names in C<csv_cols>. Specifying
C<csv_cols> always wins over any value of C<csv_skip_first_row>.
=cut
sub new
lib/AnyData2/Format/CSV.pm view on Meta::CPAN
my $self = $class->SUPER::new($storage);
my $csv_class = delete $options{csv_class};
my $csv_skip_first_row = delete $options{csv_skip_first_row};
defined $csv_class or $csv_class = $class->_guess_suitable_class(qw(Text::CSV_XS Text::CSV));
my $csv = $csv_class->new( {%options} );
$self->{csv} = $csv;
# XXX
AnyEvent-Connection
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-Connector
view release on metacpan or search on metacpan
t/connect.t view on Meta::CPAN
my $conn = AnyEvent::Connector->new(
proxy => "http://127.0.0.1:$proxy_port"
);
my $client_cv = AnyEvent->condvar;
my ($got_host, $got_port);
$conn->tcp_connect("this.never.exist.i.guess.com", 5500, sub {
(my $fh, $got_host, $got_port) = @_;
my $ah;
$ah = AnyEvent::Handle->new(
fh => $fh,
on_error => sub {
t/connect.t view on Meta::CPAN
my $client_got = $client_cv->recv();
my $proxy_got = $proxy_cv->recv();
is $client_got, "data submitted";
is $got_host, "127.0.0.1";
is $got_port, $proxy_port;
is $proxy_got->[0], "CONNECT this.never.exist.i.guess.com:5500 HTTP/1.1\r\nHost: this.never.exist.i.guess.com:5500\r\n\r\n";
is $proxy_got->[1], "data submitted\n";
is_deeply $proxy_got->[2], [];
};
subtest "proxy error", sub {
AnyEvent-CouchDB
view release on metacpan or search on metacpan
19:21 < jchris> damien did a std-deviation calculation using reduce
19:22 < beppu> do you have a url for that?
19:22 < jchris> the final value can be something complex like {total: 25255326, count: 2487, avg:
441.32, stddev: 21.4}
19:22 < jchris> just not a list, i guess
19:22 < jchris> I'm fuzzy there
19:22 < jchris> damien's thing was just in the channel
19:22 < beppu> doh
19:22 < jchris> I used to have a pastie.org for it, but the link is lost
19:22 < beppu> right...
AnyEvent-Cron
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-DBD-Pg
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-FCP
view release on metacpan or search on metacpan
};
=item ($can_read, $can_write) = $fcp->test_dda ($local_directory, $remote_directory, $want_read, $want_write))
The DDA test in FCP is probably the single most broken protocol - only
one directory test can be outstanding at any time, and some guessing and
heuristics are involved in mangling the paths.
This function combines C<TestDDARequest> and C<TestDDAResponse> in one
request, handling file reading and writing as well, and tries very hard to
do the right thing.
AnyEvent-FTP
view release on metacpan or search on metacpan
share/ppt/ls.pl view on Meta::CPAN
}
# ------ process arguments
getopts('1ACFLRSTWacdfgiklmnopqrstux', \%Options);
# ------ get (or guess) window size
if (ioctl(STDOUT, $TIOCGWINSZ, $WinSize)) {
($WinRows, $WinCols, $Xpixel, $Ypixel) = unpack('S4', $WinSize);
} else {
$WinCols = 80;
}
AnyEvent-Fork
view release on metacpan or search on metacpan
Fork/Early.pm view on Meta::CPAN
perl into another program, and that program runs on another system without
perl installed.
And anyway, forking would still be more efficient, if it were possible.
And, as you hopefully guessed, this module makes this possible - it must
be run by the main program (i.e. to cannot be used in a module), and as
early as possible. How early? Well, early enough so that any other modules
can still be loaded and used, that is, before modules such as AnyEvent or
Gtk2 are being initialised.
AnyEvent-HTTP
view release on metacpan or search on metacpan
The key C<version> has to contain C<2>, otherwise the hash gets
cleared. All other keys are hostnames or IP addresses pointing to
hash-references. The key for these inner hash references is the
server path for which this cookie is meant, and the values are again
hash-references. Each key of those hash-references is a cookie name, and
the value, you guessed it, is another hash-reference, this time with the
key-value pairs from the cookie, except for C<expires> and C<max-age>,
which have been replaced by a C<_expires> key that contains the cookie
expiry timestamp. Session cookies are indicated by not having an
C<_expires> key.
AnyEvent-Handle-Writer
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-MP
view release on metacpan or search on metacpan
=head2 CONFIGURATION/BINDS
To be able to be reached from other nodes, a node must I<bind> itself
to some listening socket(s). The list of these can either bs specified
manually, or AnyEvent::MP can guess them. Nodes without any binds are
possible to some extent.
=over 4
=item setbinds <host:port>,...
the secure option to a true value.
When secure mode is enabled, then the node will not execute code locally,
at least not via the normal node protocol. All other messages are still
allowed. This means remote nodes can monitor, kill or snd to local ports
(port names can also be easily guessed).
At the moment, this setting ignores C<snd_on>, C<eval_on> and C<spawn>
requests.
=item [set|del]monitor_timeout <seconds>
AnyEvent-Memcached
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
AnyEvent-Net-Curl-Queued
view release on metacpan or search on metacpan
inc/Test/HTTP/AnyEvent/Server.pm view on Meta::CPAN
Default: 60.
=head2 disable_proxy
Reset the proxy-controlling environment variables (C<no_proxy>/C<http_proxy>/C<ftp_proxy>/C<all_proxy>).
I guess you don't need a proxy to connect to yourself.
Default: true.
=head2 forked
B<(experimental)> Sometimes, you just need to test some blocking code.
AnyEvent-Plurk
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-RPC
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent-RTPG
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
AnyEvent
view release on metacpan or search on metacpan
lib/AnyEvent/Impl/POE.pm view on Meta::CPAN
=item Timing deficiencies
POE manages to not have a function that returns the current time. This is
extremely problematic, as POE can use different time functions, which can
differ by more than a second - and user code is left guessing which one is
used.
In addition, most timer functions in POE want an absolute timestamp, which
is hard to create if all you have is a relative time and no function to
return the "current time".
lib/AnyEvent/Impl/POE.pm view on Meta::CPAN
effects on POE handling SIGINT.
refcount_increment SESSION_ID, COUNTER_NAME
Nowhere is explained which COUNTER_NAMEs are valid and which aren't - not
all scalars (or even strings) are valid counter names. Take your guess,
failure is of course completely silent. I found this out the hard way, as
the first name I came up with was silently ignored.
get_next_event_time() returns the time the next event is due, in a form
compatible with the UNIX time() function.
lib/AnyEvent/Impl/POE.pm view on Meta::CPAN
It gets worse, though - the notion of "task" or "resource", although used
throughout the documentation, is not defined in a usable way. For example,
waiting for a timeout is considered to be a task, waiting for a signal is
not (a session that only waits for a signal is considered finished and
gets removed). The user is left guessing when waiting for an event counts
as task and when not (in fact, the issue with signals is mentioned in
passing in a section about child watchers and directly contradicts earlier
parts in that document).
One could go on endlessly - ten years, no usable documentation.
It is likely that differences between documentation, or the one or two
things I had to guess, cause unanticipated problems with this adaptor.
=item Fragile and inconsistent API
The POE API is extremely inconsistent - sometimes you have to pass a
session argument, sometimes it gets ignored, sometimes a session-specific
( run in 0.499 second using v1.01-cache-2.11-cpan-702932259ff )