Result:
found more than 616 distributions - search limited to the first 2001 files matching your query
( run in 0.650 )
Amethyst
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Zippy.pm view on Meta::CPAN
Does someone from PEORIA have a SHORTER ATTENTION span than me? does your DRESSING ROOM have enough ASPARAGUS?
DON'T go!! I'm not HOWARD COSELL!! I know POLISH JOKES ... WAIT!!
Don't go!! I AM Howard Cosell! ... And I DON'T know Polish jokes!!
Don't hit me!! I'm in the Twilight Zone!!!
Don't SANFORIZE me!!
Don't worry, nobody really LISTENS to lectures in MOSCOW, either! ... FRENCH, HISTORY, ADVANCED CALCULUS, COMPUTER PROGRAMMING, BLACK STUDIES, SOCIOBIOLOGY! ... Are there any QUESTIONS??
Edwin Meese made me wear CORDOVANS!!
Eisenhower!! Your mimeograph machine upsets my stomach!!
Either CONFESS now or we go to "PEOPLE'S COURT"!!
Everybody gets free BORSCHT!
Everybody is going somewhere!! It's probably a garage sale or a disaster Movie!!
Amon2-Web-Dispatcher-RouterSimple-Extended
view release on metacpan or search on metacpan
lib/Amon2/Web/Dispatcher/RouterSimple/Extended.pm view on Meta::CPAN
our $VERSION = "0.05.01";
use Router::Simple 0.03;
my @METHODS = qw/GET POST PUT DELETE/;
my $submap;
sub import {
my $class = shift;
my %args = @_;
lib/Amon2/Web/Dispatcher/RouterSimple/Extended.pm view on Meta::CPAN
=item put $path, "${controller}#${action}"
this is equivalent to:
connect $path, { controller => $controller, action => $action }, { method => 'PUT' };
=item delete $path, "${controller}#${action}"
this is equivalent to:
Amon2
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
}
sub files { {
"bootstrap/alert.js" => "/*!\n * Bootstrap alert.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...
"bootstrap/alert.js.map" => "{\"version\":3,\"file\":\"alert.js\",\"sources\":[\"../src/alert.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): alert.js\\n * Lic...
"bootstrap/button.js" => "/*!\n * Bootstrap button.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/bootst...
"bootstrap/button.js.map" => "{\"version\":3,\"file\":\"button.js\",\"sources\":[\"../src/button.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): button.js\\n *...
"bootstrap/carousel.js" => "/*!\n * Bootstrap carousel.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/carousel.js.map" => "{\"version\":3,\"file\":\"carousel.js\",\"sources\":[\"../src/carousel.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): carousel...
"bootstrap/collapse.js" => "/*!\n * Bootstrap collapse.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/collapse.js.map" => "{\"version\":3,\"file\":\"collapse.js\",\"sources\":[\"../src/collapse.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): collapse...
"bootstrap/css/bootstrap-grid.css" => "/*!\n * Bootstrap Grid v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/mast...
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...
"bootstrap/modal.js.map" => "{\"version\":3,\"file\":\"modal.js\",\"sources\":[\"../src/modal.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): modal.js\\n * Lic...
"bootstrap/popover.js" => "/*!\n * Bootstrap popover.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/boot...
"bootstrap/popover.js.map" => "{\"version\":3,\"file\":\"popover.js\",\"sources\":[\"../src/popover.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): popover.js\...
"bootstrap/scrollspy.js" => "/*!\n * Bootstrap scrollspy.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/...
Analizo
view release on metacpan or search on metacpan
lib/Analizo/Command/metrics.pm view on Meta::CPAN
exclude test code from the analysis. You could do that by passing something
like pass B<--exclude test>.
=back
=head1 OUTPUT FORMAT
The output is a stream of YAML documents. The first one presents metrics for
the project as a whole. The subsequent ones present per-module metrics, and thus
there will be as many of them as there are modules in your project.
Anansi-Database-MySQL
view release on metacpan or search on metacpan
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
PASSWORD => 'somePassword',
USERNAME => 'someUser',
)) {
my $records = $OBJECT->statement(
undef,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
USERNAME => 'someUser',
)) {
my $records = $OBJECT->channel(
'STATEMENT',
$component,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:mysql:database=', {
DEFAULT => 'mysql',
NAME => 'DATABASE',
REF => '',
},
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
REF => '',
}, {
NAME => 'PASSWORD',
REF => '',
}, {
INPUT => [
{
DEFAULT => 0,
NAME => 'AutoCommit',
REF => '',
}, {
Anansi-Database-Oracle
view release on metacpan or search on metacpan
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
PASSWORD => 'somePassword',
USERNAME => 'someUser',
)) {
my $records = $OBJECT->statement(
undef,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
USERNAME => 'someUser',
)) {
my $records = $OBJECT->channel(
'STATEMENT',
$component,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:Oracle:host=', {
DEFAULT => '127.0.0.1',
NAME => 'HOST',
REF => '',
},
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
REF => '',
}, {
NAME => 'PASSWORD',
REF => '',
}, {
INPUT => [
{
DEFAULT => 0,
NAME => 'AutoCommit',
REF => '',
}, {
Anansi-Database-PostgreSQL
view release on metacpan or search on metacpan
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
PASSWORD => 'somePassword',
USERNAME => 'someUser',
)) {
my $records = $OBJECT->statement(
undef,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
USERNAME => 'someUser',
)) {
my $records = $OBJECT->channel(
'STATEMENT',
$component,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
{
INPUT => [
'dbi:Pg:dbname=', {
DEFAULT => $ENV{'PGDATABASE'} || '',
NAME => 'DATABASE',
REF => '',
},
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
}, {
DEFAULT => $ENV{'PGPASSWORD'} || undef,
NAME => 'PASSWORD',
REF => '',
}, {
INPUT => [
{
DEFAULT => 0,
NAME => 'AutoCommit',
REF => '',
}, {
Anansi-Database
view release on metacpan or search on metacpan
lib/Anansi/Database.pm view on Meta::CPAN
USERNAME => 'someUser',
)) {
my $records = $OBJECT->channel(
'STATEMENT',
$component,
INPUT => [
{
DEFAULT => '0',
NAME => 'yetAnotherField',
}
],
lib/Anansi/Database.pm view on Meta::CPAN
=head2 statement
my $result = Anansi::Database::statement(
$OBJECT,
undef,
INPUT => [
'hij' => 'someParameter',
'klm' => 'anotherParameter'
],
SQL => 'SELECT abc, def FROM some_table WHERE hij = ? AND klm = ?;',
STATEMENT => 'someStatement',
lib/Anansi/Database.pm view on Meta::CPAN
Named parameters.
=over 4
=item INPUT I<(Array, Optional)>
An array of hashes with each element corresponding to an equivalent B<?>
I<(Question mark)> found within the supplied B<SQL>. If the number of elements
is not the same as the number of B<?> I<(Question mark)>s found in the statement
then the statement is invalid. See the L<Anansi::DatabaseComponent::bind>
Anansi-DatabaseComponent
view release on metacpan or search on metacpan
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
sub connect {
my ($self, $channel, %parameters) = @_;
return $self->SUPER::connect(
undef,
INPUT => [
'some text',
{
NAME => 'someParameter',
}, {
INPUT => [
'more text',
{
NAME => 'anotherParameter',
},
'yet more text',
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
)) {
my $result = $database->statement(
undef,
$component,
SQL => 'SELECT someThing FROM someTable where modified = ?;',
INPUT => [
{
NAME => 'modified',
},
],
modified => '2011-02-22 00:21:46',
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=head2 bind
if(Anansi::DatabaseComponent::bind($OBJECT,
HANDLE => $HANDLE,
INPUT => [
{
NAME => 'someParameter'
}, {
DEFAULT => 123,
NAME => 'anotherParameter'
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
}
));
if($OBJECT->bind(
HANDLE => $HANDLE,
INPUT => [
{
NAME => 'yetAnotherParameter',
TYPE => 'TEXT'
}
],
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=item HANDLE I<(DBI::st, Required)>
The database statement handle.
=item INPUT I<(Array, Required)>
An array of hashes. Each element of the array corresponds to an equivalent B<?>
I<(Question mark)> within the prepared SQL statement. Each hash contains a
I<NAME> key with a value that represents a possible key within the I<VALUE>
parameter. Each hash may also contain a I<DEFAULT> key which contains the value
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
corresponding I<VALUE> parameter key exists and no I<DEFAULT> key has been
defined then an empty string is used for the value.
=item VALUE I<(Hash, Required)>
A hash of values to assign in the order specified by the I<INPUT> parameter.
=back
=back
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
sub bind {
my ($self, %parameters) = @_;
return 0 if(!defined($parameters{HANDLE}));
return 0 if(!defined($parameters{INPUT}));
return 0 if(ref($parameters{INPUT}) !~ /^ARRAY$/i);
return 0 if(!defined($parameters{VALUE}));
return 0 if(ref($parameters{VALUE}) !~ /^HASH$/i);
my $index = 1;
foreach my $input (@{$parameters{INPUT}}) {
if(defined(${$parameters{VALUE}}{${$input}{NAME}})) {
if(defined(${$input}{TYPE})) {
$parameters{HANDLE}->bind_param($index, ${$parameters{VALUE}}{${$input}{NAME}}, ${$input}{TYPE});
} else {
$parameters{HANDLE}->bind_param($index, ${$parameters{VALUE}}{${$input}{NAME}});
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=back
Verifies that the supplied parameters are all hashes and that they each contain
a I<NAME> key with a string value. Returns B<1> I<(one)> when validity is
confirmed and B<0> I<(zero)> when an invalid structure is determined. Used to
validate the I<INPUT> parameter of the B<bind> method.
=cut
sub binding {
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=head2 connect
if(1 == Anansi::DatabaseComponent::connect($OBJECT, undef
INPUT => [
'some text',
{
NAME => 'someParameter'
}, {
INPUT => [
'more text',
{
NAME => 'anotherParameter'
},
'yet more text'
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
someParameter => 12345,
anotherParameter => 'blah blah blah'
));
if(1 == Anansi::DatabaseComponent::channel($OBJECT, 'CONNECT',
INPUT => [
'blah blah blah',
{
DEFAULT => 123,
NAME => 'someParameter',
}
],
someParameter => 'some text'
));
if(1 == $OBJECT->connect(undef,
INPUT => [
{
INPUT => [
'some text',
{
NAME => 'someParameter'
},
'more text'
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
],
someParameter => 'in between'
));
if(1 == $OBJECT->channel('CONNECT',
INPUT => [
{
INPUT => [
{
NAME => 'abc'
}, {
NAME => 'def'
}
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=over 4
=item HANDLE I<(DBI::db, Optional)>
The database handle of an existing database connection. Used in preference to
the I<INPUT> parameter.
=item INPUT I<(Array B<or> Scalar, Optional)>
An array or single value containing a description of each parameter in the order
that it is passed to the database driver's I<connect> method. Used when the
I<HANDLE> parameter does not exist.
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=item DEFAULT I<(Optional)>
The value to use if no other value can be determined.
=item INPUT I<(Array B<or> Scalar, Optional)>
Contains a structure like that given in I<INPUT> above with the exception that
any further I<INPUT> keys will be ignored. As this key is only valid when
I<NAME> is undefined and I<REF> either specifies a string or a hash, it's value
will be either a concatenation of all the calculated strings or a hash
containing all of the specified keys and values.
=item NAME I<(String, Optional)>
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
$self->disconnect();
if(defined($parameters{HANDLE})) {
return 0 if(ref($parameters{HANDLE}) !~ /^DBI::db$/);
$self->{HANDLE} = $parameters{HANDLE};
$self->{MANAGE_HANDLE} = 0;
} elsif(!defined($parameters{INPUT})) {
return 0;
} elsif(ref($parameters{INPUT}) !~ /^ARRAY$/i) {
return 0;
} else {
my @inputs;
foreach my $input (@{$parameters{INPUT}}) {
if(ref($input) !~ /^HASH$/i) {
push(@inputs, $input);
next;
}
my $value = undef;
$value = ${$input}{DEFAULT} if(defined(${$input}{DEFAULT}));
if(!defined(${$input}{NAME})) {
if(!defined(${$input}{INPUT})) {
} elsif(ref(${$input}{INPUT}) !~ /^ARRAY$/i) {
} elsif(!defined(${$input}{REF})) {
} elsif(ref(${$input}{REF}) !~ /^$/i) {
} elsif('' eq ${$input}{REF}) {
my @subInputs;
for(my $index = 0; $index < scalar(@{${$input}{INPUT}}); $index++) {
if(ref(${${$input}{INPUT}}[$index]) =~ /^$/i) {
push(@subInputs, ${${$input}{INPUT}}[$index]);
next;
} elsif(ref(${${$input}{INPUT}}[$index]) !~ /^HASH$/) {
next;
}
my $subValue = '';
$subValue = ${${${$input}{INPUT}}[$index]}{DEFAULT} if(defined(${${${$input}{INPUT}}[$index]}{DEFAULT}));
if(!defined(${${${$input}{INPUT}}[$index]}{NAME})) {
} elsif(ref(${${${$input}{INPUT}}[$index]}{NAME}) !~ /^$/) {
} elsif(defined($parameters{${${${$input}{INPUT}}[$index]}{NAME}})) {
if(!defined(${${${$input}{INPUT}}[$index]}{REF})) {
$subValue = $parameters{${${${$input}{INPUT}}[$index]}{NAME}} if('' eq ref($parameters{${${${$input}{INPUT}}[$index]}{NAME}}));
} elsif(ref(${${${$input}{INPUT}}[$index]}{REF}) !~ /^$/) {
} elsif('' ne ${${${$input}{INPUT}}[$index]}{REF}) {
} elsif('' ne ref($parameters{${${${$input}{INPUT}}[$index]}{NAME}})) {
} else {
$subValue = $parameters{${${${$input}{INPUT}}[$index]}{NAME}};
}
}
push(@subInputs, $subValue);
}
$value = join('', @subInputs);
} elsif(${$input}{REF} =~ /^HASH$/i) {
my %subInputs;
foreach my $subInput (@{${$input}{INPUT}}) {
next if(ref($subInput) !~ /^HASH$/i);
my $subValue = undef;
$subValue = ${$subInput}{DEFAULT} if(defined(${$subInput}{DEFAULT}));
if(!defined(${$subInput}{NAME})) {
} elsif(ref(${$subInput}{NAME}) !~ /^$/) {
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
my %refs = map { $_ => 1 } (@{${$input}{REF}});
if(!defined($refs{ref($parameters{${$input}{NAME}})})) {
} elsif(ref($parameters{${$input}{NAME}}) !~ /^HASH$/i) {
$value = $parameters{${$input}{NAME}};
} else {
if(!defined(${$input}{INPUT})) {
$value = $parameters{${$input}{NAME}};
} elsif(ref(${$input}{INPUT}) !~ /^HASH$/i) {
$value = $parameters{${$input}{NAME}};
} else {
my %subInputs;
foreach my $subInput (keys(%{${$input}{INPUT}})) {
if(ref($subInput) !~ /^HASH$/i) {
$subInputs{$subInput} = $subInput;
next;
}
my $subValue = undef;
$value = ${${${$input}{INPUT}}{$subInput}}{DEFAULT} if(defined(${${${$input}{INPUT}}{$subInput}}{DEFAULT}));
if(!defined(${${${$input}{INPUT}}{$subInput}}{NAME})) {
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{NAME}) !~ /^$/) {
} elsif(defined($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})) {
if(!defined(${${${$input}{INPUT}}{$subInput}}{REF})) {
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{REF}) =~ /^ARRAY$/i) {
my %refs = map { $_ => 1 } (@{${${${$input}{INPUT}}{$subInput}}{REF}});
$subValue = $parameters{${${${$input}{INPUT}}{$subInput}}{NAME}} if(defined($refs{ref($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})}));
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{REF}) !~ /^$/) {
} elsif(${${${$input}{INPUT}}{$subInput}}{REF} ne ref($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})) {
} else {
$subValue = $parameters{${${${$input}{INPUT}}{$subInput}}{NAME}};
}
}
$subInputs{$subInput} = $subValue;
}
$value = \%subInputs;
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
} elsif(ref(${$input}{REF}) !~ /^$/) {
} elsif(${$input}{REF} ne ref($parameters{${$input}{NAME}})) {
} elsif(ref($parameters{${$input}{NAME}}) !~ /^HASH$/i) {
$value = $parameters{${$input}{NAME}};
} else {
if(!defined(${$input}{INPUT})) {
$value = $parameters{${$input}{NAME}};
} elsif(ref(${$input}{INPUT}) !~ /^HASH$/i) {
$value = $parameters{${$input}{NAME}};
} else {
my %subInputs;
foreach my $key (keys(%{${$input}{INPUT}})) {
if(ref($subInput) !~ /^HASH$/i) {
push(@subInputs, $subInput);
next;
}
my $subValue = undef;
$value = ${${${$input}{INPUT}}{$subInput}}{DEFAULT} if(defined(${${${$input}{INPUT}}{$subInput}}{DEFAULT}));
if(!defined(${${${$input}{INPUT}}{$subInput}}{NAME})) {
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{NAME}) !~ /^$/) {
} elsif(defined($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})) {
if(!defined(${${${$input}{INPUT}}{$subInput}}{REF})) {
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{REF}) =~ /^ARRAY$/i) {
my %refs = map { $_ => 1 } (@{${${${$input}{INPUT}}{$subInput}}{REF}});
$subValue = $parameters{${${${$input}{INPUT}}{$subInput}}{NAME}} if(defined($refs{ref($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})}));
} elsif(ref(${${${$input}{INPUT}}{$subInput}}{REF}) !~ /^$/) {
} elsif(${${${$input}{INPUT}}{$subInput}}{REF} ne ref($parameters{${${${$input}{INPUT}}{$subInput}}{NAME}})) {
} else {
$subValue = $parameters{${${${$input}{INPUT}}{$subInput}}{NAME}};
}
}
$subInputs{$subInput} = $subValue;
}
$value = \%subInputs;
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
STATEMENT => 'an associated name'
);
if(defined($PREPARATION));
if(1 == Anansi::DatabaseComponent::channel($OBJECT, 'PREPARE',
INPUT => [
{
NAME => 'someParameter'
}
],
SQL => 'SELECT abc, def FROM some_table WHERE ghi = ?',
STATEMENT => 'another associated name'
));
if(1 == $OBJECT->prepare(undef,
INPUT => [
{
NAME => 'abc'
}, {
NAME => 'def'
}, {
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
SQL => 'INSERT INTO some_table (abc, def, ghi) VALUES (?, ?, ?);',
STATEMENT => 'yet another name'
));
if(1 == $OBJECT->channel('PREPARE',
INPUT => [
{
NAME => ''
}
],
SQL => '',
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
Named parameters.
=over 4
=item INPUT I<Array, Optional>
An array of hashes. Each hash should contain a I<NAME> key with a string value
that represents the name of a parameter to associate with the corresponding B<?>
I<(Question mark)>. See the I<bind> method for details.
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
return 0 if(ref($parameters{SQL}) !~ /^$/);
$parameters{SQL} =~ s/^\s*(.*)|(.*)\s*$/$1/g;
my $questionMarks = $parameters{SQL};
my $questionMarks = $questionMarks =~ s/\?/$1/sg;
if(0 == $questionMarks) {
return 0 if(defined($parameters{INPUT}));
} elsif(!defined($parameters{INPUT})) {
return 0;
} elsif(ref($parameters{INPUT}) !~ /^ARRAY$/i) {
return 0;
} elsif(scalar(@{$parameters{INPUT}}) != $questionMarks) {
return 0;
} else {
return 0 if(!$self->binding((@{$parameters{INPUT}})));
}
my $handle;
eval {
$handle = $self->{HANDLE}->prepare($parameters{SQL});
1;
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
};
my %statement = (
HANDLE => $handle,
SQL => $parameters{SQL},
);
$statement{INPUT} = $parameters{INPUT} if(defined($parameters{INPUT}));
${$self->{STATEMENTS}}{$parameters{STATEMENT}} = \%statement;
}
return 1 if(defined($channel));
return ${$self->{STATEMENTS}}{$parameters{STATEMENT}};
}
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
Describes whether to perform the subsequent sequence statement.
=back
=item INPUT I<(Array B<or> String, Optional)>
An array of strings or a string containing the variables or variable data. Only
used when I<COMMAND> contains B<"LOOP">, B<"RUN"> or B<"SQL">.
=item NAME I<(String, Optional)
A sequence name associated with the SQL statement, control structure or external
process trigger. When I<COMMAND> is B<"LOOP">, represents the name of a script
variable hash that will contain the current I<ITERATION> of the loop starting at
B<0> I<(zero)>, how many I<ITERATIONS> the loop is expected to perform a B<1>
I<(one)> or greater or a B<0> I<(zero)> for indeterminate and the I<INPUT> value
to use in the iteration or B<undef> if indeterminate. When I<COMMAND> is B<"RUN">
, represents the name of a script variable that will contain the results of the
trigger. When I<COMMAND> is B<"TEST">, represents the name of a script variable
that will either contain the result of the current test or the name of a script
variable that should be used to determine whether the sequence statement should
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
=head2 statement
my $result = Anansi::DatabaseComponent::statement($OBJECT, undef,
INPUT => [
'hij' => 'someParameter',
'klm' => 'anotherParameter'
],
SQL => 'SELECT abc, def FROM some_table WHERE hij = ? AND klm = ?;',
STATEMENT => 'someStatement',
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
Named parameters.
=over 4
=item INPUT I<(Array, Optional)>
An array of hashes with each element corresponding to an equivalent B<?>
I<(Question mark)> found within the supplied I<SQL>. If the number of elements
is not the same as the number of B<?> I<(Question mark)>s found in the statement
then the statement is invalid. See the I<bind> method for details.
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
return 0 if(ref($self) =~ /^(|ARRAY|CODE|FORMAT|GLOB|HASH|IO|LVALUE|REF|Regexp|SCALAR|VSTRING)$/i);
my $prepared = $self->prepare(undef, (%parameters));
my $handle;
if($prepared) {
$handle = ${$prepared}{HANDLE};
if(defined(${$prepared}{INPUT})) {
my $bound = $self->bind(
HANDLE => $handle,
INPUT => ${$prepared}{INPUT},
VALUE => \%parameters,
);
return 0 if(!$bound);
}
} else {
lib/Anansi/DatabaseComponent.pm view on Meta::CPAN
return 0;
};
my $questionMarks = $parameters{SQL};
my $questionMarks = $questionMarks =~ s/\?/$1/sg;
if(0 == $questionMarks) {
if(defined($parameters{INPUT})) {
$self->rollback();
return 0;
}
} elsif(!defined($parameters{INPUT})) {
$self->rollback();
return 0;
} elsif(ref($parameters{INPUT}) !~ /^ARRAY$/i) {
$self->rollback();
return 0;
} elsif(scalar(@{$parameters{INPUT}}) != $questionMarks) {
$self->rollback();
return 0;
} else {
if(!$self->bind(
HANDLE => $handle,
INPUT => $parameters{INPUT},
VALUE => \%parameters,
)) {
$self->rollback();
return 0;
}
Anarres-Mud-Driver
view release on metacpan or search on metacpan
Compiler/Compiler.xs view on Meta::CPAN
Anarres::Mud::Driver::Compiler
new(class)
SV * class
CODE:
RETVAL = Newz(0, RETVAL, 1, struct _amd_parser);
OUTPUT:
RETVAL
int
lex(class, str)
SV * class
char * str
CODE:
test_lexer(str);
RETVAL = 0;
OUTPUT:
RETVAL
int
parse(class, prog, str)
SV * class
SV * prog
char * str
CODE:
amd_yyparser_parse(prog, str);
RETVAL = 0;
OUTPUT:
RETVAL
void
DESTROY(self)
Anarres::Mud::Driver::Compiler self
AnnoCPAN
view release on metacpan or search on metacpan
lib/AnnoCPAN/PodToHtml.pm view on Meta::CPAN
}
sub textblock {
my ($self, $text, $line_num, $pod_para) = @_;
return '' if $self->{annocpan_begin_depth};
my $out_fh = $self->{_OUTPUT};
my $p = $self->interpolate($text, $line_num);
for ($p) {
s/(?<!\0)&/&/g;
s/(?<!\0)</</g;
s/(?<!\0)>/>/g;
AntTweakBar
view release on metacpan or search on metacpan
lib/AntTweakBar.xs view on Meta::CPAN
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSViv(*(int*)value)));
PUTBACK;
call_sv(*cb, G_DISCARD);
FREETMPS;
LEAVE;
}
lib/AntTweakBar.xs view on Meta::CPAN
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVnv(*(double*)value)));
PUTBACK;
call_sv(*cb, G_DISCARD);
FREETMPS;
LEAVE;
}
lib/AntTweakBar.xs view on Meta::CPAN
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs(sv_2mortal(newSVpv(*(char**)value, 0)));
PUTBACK;
call_sv(*cb, G_DISCARD);
FREETMPS;
LEAVE;
}
lib/AntTweakBar.xs view on Meta::CPAN
av_push(av, newSVnv(values[i])); \
} \
\
PUSHMARK(SP); \
XPUSHs(sv_2mortal(newRV_inc((SV*)av))); \
PUTBACK; \
\
call_sv(*cb, G_DISCARD); \
\
FREETMPS; \
LEAVE; \
Any-Renderer-Data-Printer
view release on metacpan or search on metacpan
t/01-check_output.t view on Meta::CPAN
use warnings;
use Test::More tests => 3;
use Any::Renderer;
use constant OUTPUT_DEFAULT => q[\ {
bar [
[0] "foo1",
[1] "foo2",
[2] "foo3"
],
foo "bar"
}];
use constant OUTPUT_INDENT_10 => q[\ {
bar [
[0] "foo1",
[1] "foo2",
[2] "foo3"
],
t/01-check_output.t view on Meta::CPAN
foo => 'bar',
bar => ['foo1','foo2','foo3']
};
ok($r->render($hash) eq OUTPUT_DEFAULT, 'Output - Default');
ok( $r2->render($hash) eq OUTPUT_INDENT_10, 'Output - Indent 10');
Any-Template
view release on metacpan or search on metacpan
lib/Any/Template/Backend/Text/Template.pm view on Meta::CPAN
return 1;
}
sub process_to_filehandle {
my ($self, $data, $fh) = @_;
$self->{engine}->fill_in(HASH => $data, OUTPUT => $fh);
return 1;
}
#
# This marshalls the Any::Template ctor options into the form required for Text::Template
AnyEvent-Campfire-Client
view release on metacpan or search on metacpan
lib/AnyEvent/Campfire/Client.pm view on Meta::CPAN
$self->uri->query_form(''); # clear query
}
sub get { shift->request( 'GET', @_ ) }
sub post { shift->request( 'POST', @_ ) }
sub put { shift->request( 'PUT', @_ ) }
sub delete { shift->request( 'DELETE', @_ ) }
__PACKAGE__->meta->make_immutable;
1;
AnyEvent-CouchDB
view release on metacpan or search on metacpan
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
sub create {
my ( $self, $options ) = @_;
my ( $cv, $cb ) = cvcb( $options, 201, $self->json_encoder );
http_request(
PUT => $self->uri,
headers => $self->_build_headers($options),
$cb
);
$cv;
}
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
if ( not defined $doc->{_id} ) {
$method = 'POST';
$uri = $self->uri;
}
else {
$method = 'PUT';
$uri = $self->uri . uri_escape_utf8( $doc->{_id} );
}
http_request(
$method => $uri . $query->($options),
headers => $self->_build_headers($options),
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
};
};
}
my ( $cv, $cb ) = cvcb( $options, 201, $self->json_encoder );
http_request(
PUT => $self->uri
. uri_escape_utf8( $doc->{_id} ) . "/"
. uri_escape_utf8($attachment)
. $query->( { rev => $doc->{_rev} } ),
headers => $self->_build_headers($options),
body => $body,
lib/AnyEvent/CouchDB/Database.pm view on Meta::CPAN
my ( $self, $path, $options ) = @_;
my ( $cv, $cb ) = cvcb( $options, undef, $self->json_encoder );
my $headers = $self->_build_headers($options);
my $uri = $self->uri . "$path";
http_request(
PUT => $uri,
headers => $headers,
body => $query->($options),
$cb
);
$cv;
AnyEvent-FastPing
view release on metacpan or search on metacpan
FastPing.xs view on Meta::CPAN
self->nextrecv = -1;
PUSHMARK (SP);
XPUSHs (sv_2mortal (newRV_noinc ((SV *)self->recvq)));
self->recvq = 0;
PUTBACK;
call_sv (self->recvcb, G_DISCARD | G_VOID);
}
while (firstrecv >= 0);
FREETMPS;
FastPing.xs view on Meta::CPAN
{
SV *cb = *av_fetch (cbs, i, 1);
PUSHMARK (SP);
XPUSHs (res);
PUTBACK;
call_sv (cb, G_DISCARD | G_VOID);
}
FREETMPS;
LEAVE;
FastPing.xs view on Meta::CPAN
IV
id (PINGER *self, ...)
CODE:
RETVAL = self->id;
OUTPUT:
RETVAL
void pinger_start (PINGER *self)
void pinger_stop (PINGER *self)
AnyEvent-Finger
view release on metacpan or search on metacpan
lib/AnyEvent/Finger.pm view on Meta::CPAN
Under Linux you can use C<iptables> to forward requests to port 79 to
an unprivileged port. I was able to use this incantation to forward port 79
to port 8079:
# iptables -t nat -A PREROUTING -p tcp --dport 79 -j REDIRECT --to-port 8079
# iptables -t nat -I OUTPUT -p tcp -d 127.0.0.1 --dport 79 -j REDIRECT --to-port 8079
The first rule is sufficient for external clients, the second rule was required
for clients connecting via the loopback interface (localhost).
=head1 SEE ALSO
AnyEvent-GnuPG
view release on metacpan or search on metacpan
Handle array context properly. (getlines) Support paragraph mode.
(CLOSE) Return true when process completes successfully.
- test.pl: Added test for GnuPG::Tie paragraph mode.
- GnuPG.pm: (version) Updated to version 0.05 (run_gnupg) Removed file
descriptor leaks. Use CORE::die in case of errors. (read_from_status)
Make sure that we are using newlin as INPUT_RECORD_SEPARATOR.
0.04 1999-12-06 Francis J. Lacoste <francis.lacoste@iNsu.COM>
- Small bugfixes related to running under mod_perl.
- Tag: GNUPG_0_04
- NEWS: Added a news file.
AnyEvent-HTTP-LWP-UserAgent
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/LWP/UserAgent.pm view on Meta::CPAN
sub put_async {
require HTTP::Request::Common;
my($self, @parameters) = @_;
my @suff = $self->_process_colonic_headers(\@parameters, (ref($parameters[1]) ? 2 : 1));
return $self->request_async( HTTP::Request::Common::PUT( @parameters ), @suff );
}
sub delete_async {
require HTTP::Request::Common;
AnyEvent-HTTP-ScopedClient
view release on metacpan or search on metacpan
lib/AnyEvent/HTTP/ScopedClient.pm view on Meta::CPAN
}
sub get { shift->request( 'GET', @_ ) }
sub post { shift->request( 'POST', @_ ) }
sub patch { shift->request( 'PATCH', @_ ) }
sub put { shift->request( 'PUT', @_ ) }
sub delete { shift->request( 'DELETE', @_ ) }
sub head { shift->request( 'HEAD', @_ ) }
__PACKAGE__->meta->make_immutable;
AnyEvent-HTTP
view release on metacpan or search on metacpan
our %IDEMPOTENT = (
DELETE => 1,
GET => 1,
HEAD => 1,
OPTIONS => 1,
PUT => 1,
TRACE => 1,
ACL => 1,
"BASELINE-CONTROL" => 1,
BIND => 1,
AnyEvent-HTTPD-Router
view release on metacpan or search on metacpan
lib/AnyEvent/HTTPD/Router.pm view on Meta::CPAN
my $routes = delete $args{routes};
my $auto_respond_404 = delete $args{auto_respond_404};
my $dispatcher_class = delete $args{dispatcher_class}
|| 'AnyEvent::HTTPD::Router::DefaultDispatcher';
my $known_methods = delete $args{known_methods}
|| [ qw/GET HEAD POST PUT PATCH DELETE TRACE OPTIONS CONNECT/ ];
my $self = $class->SUPER::new(%args);
$self->{known_methods} = $known_methods;
$self->{dispatcher} = defined $dispatcher
lib/AnyEvent/HTTPD/Router.pm view on Meta::CPAN
=head1 SYNOPSIS
use AnyEvent::HTTPD::Router;
my $httpd = AnyEvent::HTTPD::Router->new( port => 1337 );
my $all_methods = [qw/GET DELETE HEAD POST PUT PATCH/];
$httpd->reg_routes(
GET => '/index.txt' => sub {
my ( $httpd, $req ) = @_;
$httpd->stop_request;
AnyEvent-I3
view release on metacpan or search on metacpan
lib/AnyEvent/I3.pm view on Meta::CPAN
use constant TYPE_RUN_COMMAND => 0;
use constant TYPE_COMMAND => 0;
use constant TYPE_GET_WORKSPACES => 1;
use constant TYPE_SUBSCRIBE => 2;
use constant TYPE_GET_OUTPUTS => 3;
use constant TYPE_GET_TREE => 4;
use constant TYPE_GET_MARKS => 5;
use constant TYPE_GET_BAR_CONFIG => 6;
use constant TYPE_GET_VERSION => 7;
use constant TYPE_GET_BINDING_MODES => 8;
lib/AnyEvent/I3.pm view on Meta::CPAN
use constant TYPE_SEND_TICK => 10;
use constant TYPE_SYNC => 11;
use constant TYPE_GET_BINDING_STATE => 12;
our %EXPORT_TAGS = ( 'all' => [
qw(i3 TYPE_RUN_COMMAND TYPE_COMMAND TYPE_GET_WORKSPACES TYPE_SUBSCRIBE TYPE_GET_OUTPUTS
TYPE_GET_TREE TYPE_GET_MARKS TYPE_GET_BAR_CONFIG TYPE_GET_VERSION
TYPE_GET_BINDING_MODES TYPE_GET_CONFIG TYPE_SEND_TICK TYPE_SYNC
TYPE_GET_BINDING_STATE)
] );
lib/AnyEvent/I3.pm view on Meta::CPAN
sub get_outputs {
my ($self) = @_;
$self->_ensure_connection;
$self->message(TYPE_GET_OUTPUTS)
}
=head2 get_tree
Gets the layout tree from i3 (>= v4.0).
AnyEvent-IMAP
view release on metacpan or search on metacpan
lib/AnyEvent/IMAP.pm view on Meta::CPAN
=over 4
=item How can I decode UTF-7 folder names?
use L<Encode::IMAPUTF7>.
=back
=head1 AUTHOR
AnyEvent-Ident
view release on metacpan or search on metacpan
lib/AnyEvent/Ident.pm view on Meta::CPAN
Under Linux you can use C<iptables> to forward requests from port 113 to
an unprivileged port. I was able to use this incantation to forward port 113
to port 8113:
# iptables -t nat -A PREROUTING -p tcp --dport 113 -j REDIRECT --to-port 8113
# iptables -t nat -I OUTPUT -p tcp -d 127.0.0.1 --dport 113 -j REDIRECT --to-port 8113
The first rule is sufficient for external clients, the second rule was required
for clients connecting via the loopback interface (localhost).
=head1 SEE ALSO
AnyEvent-MPV
view release on metacpan or search on metacpan
sub cmd_recv {
&cmd->recv
}
=item $mpv->bind_key ($INPUT => $string)
This is an extension implement by this module to make it easy to get key
events. The way this is implemented is to bind a C<client-message> witha
first argument of C<AnyEvent::MPV> and the C<$string> you passed. This
C<$string> is then passed to the C<on_key> handle when the key is
$mpv->cmd ("script-message", "osc-visibility", "auto", "dummy");
Handling events makes the main bulk of video playback code. For example,
various ways of ending playback:
if ($INPUT eq "mpv/quit") { # should not happen, but allows user to kill etc. without consequence
$status = 1;
mpv_init; # try reinit
last;
} elsif ($INPUT eq "mpv/idle") { # normal end-of-file
last;
} elsif ($INPUT eq "return") {
$status = 1;
last;
Or the code that actually starts playback, once the file is loaded:
...
my $oid = 100;
} elsif ($INPUT eq "mpv/file-loaded") { # start playing, configure video
$mpv->cmd ("seek", $playback_start, "absolute+exact") if $playback_start > 0;
my $target_fps = eval { $mpv->cmd_recv ("get_property", "container-fps") } || 60;
$target_fps *= play_video_speed_mult;
set_fps $target_fps;
ids 100+ to temporary/per-file observers.
Lastly, it sets some global (or per-youtube-uploader) parameters, such as
speed, and unpauses. Property changes are handled like other input events:
} elsif ($INPUT eq "mpv/property-change") {
my $prop = $INPUT_DATA->{name};
if ($prop eq "chapter-metadata") {
if ($INPUT_DATA->{data}{TITLE} =~ /^\[SponsorBlock\]: (.*)/) {
my $section = $1;
my $skip;
$skip ||= $SPONSOR_SKIP{$_}
for split /\s*,\s*/, $section;
# cancel a queued skip
undef $skip_delay;
}
} elsif (exists $SAVE_PROPERTY{$prop}) {
$PLAYING_STATE->{"mpv_$prop"} = $INPUT_DATA->{data};
::state_save;
}
This saves back the per-file properties, and also handles chapter changes
in a hacky way.
Most of the handlers are very simple, though. For example:
} elsif ($INPUT eq "pause") {
$mpv->cmd ("cycle", "pause");
$PLAYING_STATE->{curpos} = $mpv->cmd_recv ("get_property", "playback-time");
} elsif ($INPUT eq "right") {
$mpv->cmd ("osd-msg-bar", "seek", 30, "relative+exact");
} elsif ($INPUT eq "left") {
$mpv->cmd ("osd-msg-bar", "seek", -5, "relative+exact");
} elsif ($INPUT eq "up") {
$mpv->cmd ("osd-msg-bar", "seek", +600, "relative+exact");
} elsif ($INPUT eq "down") {
$mpv->cmd ("osd-msg-bar", "seek", -600, "relative+exact");
} elsif ($INPUT eq "select") {
$mpv->cmd ("osd-msg-bar", "add", "audio-delay", "-0.100");
} elsif ($INPUT eq "start") {
$mpv->cmd ("osd-msg-bar", "add", "audio-delay", "0.100");
} elsif ($INPUT eq "intfwd") {
$mpv->cmd ("no-osd", "frame-step");
} elsif ($INPUT eq "audio") {
$mpv->cmd ("osd-auto", "cycle", "audio");
} elsif ($INPUT eq "subtitle") {
$mpv->cmd ("osd-auto", "cycle", "sub");
} elsif ($INPUT eq "triangle") {
$mpv->cmd ("osd-auto", "cycle", "deinterlace");
Once a file has finished playing (or the user strops playback), it pauses,
unobserves the per-file observers, and saves the current position for to
be able to resume:
AnyEvent-MSN
view release on metacpan or search on metacpan
examples/client.pl view on Meta::CPAN
}
when (/^circle (.+)$/) {
$msn->create_group_chat;
=fdas
PUT 35 260
Routing: 1.0
From: 1:testmsnpsharp@live.cn;epid={ad9d9247-9181-4c57-8388-248304e153d3}
To: 10:00000000-0000-0000-0000-000000000000@live.com
Reliability: 1.0
AnyEvent-Net-Amazon-S3
view release on metacpan or search on metacpan
lib/AnyEvent/Net/Amazon/S3/HTTPRequest.pm view on Meta::CPAN
=head1 SYNOPSIS
my $http_request = AnyEvent::Net::Amazon::S3::HTTPRequest->new(
s3 => $self->s3,
method => 'PUT',
path => $self->bucket . '/',
headers => $headers,
content => $content,
)->http_request;
AnyEvent
view release on metacpan or search on metacpan
lib/AnyEvent/Impl/Irssi.pm view on Meta::CPAN
my $fd = fileno $arg{fh};
defined $fd or $fd = $arg{fh};
my $source = Irssi::input_add
$fd,
$arg{poll} eq "r" ? Irssi::INPUT_READ : Irssi::INPUT_WRITE,
$cb,
undef;
bless \\$source, "AnyEvent::Impl::Irssi::io"
}
( run in 0.650 second using v1.01-cache-2.11-cpan-d6f9594c0a5 )