view release on metacpan or search on metacpan
lib/Acme/Opish.pm view on Meta::CPAN
# Okay. Prefix the sucka.
# XXX Ack. How can I simplify this ugliness?
if (exists $OK{ lc $_ }) { # {{{
s/
( # Capture...
[aeiouy]+ # consecutive vowels
\B # that do not terminate at a word boundry
(?![aeiouy]) # that are not followed by another vowel
| # or
[aeiouy]* # any consecutive vowels
[aeiouy] # with any vowel following
\b # that terminates at a word boundry.
) # ...end capture.
/$prefix$1/gisx; # Add 'op' to what we captured.
} # }}}
lib/Acme/Opish.pm view on Meta::CPAN
elsif (/^y[aeiouy]/i) { # {{{
s/
(?:^y)? # Our string starts with y, but we don't
# want to consider it for every match.
( # Capture...
[aeiouy]+ # consecutive vowels
\B # that do not terminate at a word boundry
(?![aeiouy]) # that are not followed by another vowel
| # or
[aeiouy]* # any consecutive vowels
[aiouy] # with any non-e vowel following
\b # that terminates at a word boundry.
| # or
[aeiouy]+ # consecutive vowels
[aeiouy] # with any vowel following
\b # that terminates at a word boundry.
) # ...end capture.
/$prefix$1/gisx; # Add 'op' to what we captured.
lib/Acme/Opish.pm view on Meta::CPAN
} # }}}
# This regexp captures the "non-solitary, trailing e" vowels.
else { # {{{
s/
( # Capture...
[aeiouy]+ # consecutive vowels
\B # that do not terminate at a word boundry
(?![aeiouy]) # that are not followed by another vowel
| # or
[aeiouy]* # any consecutive vowels
[aiouy] # with any non-e vowel following
\b # that terminates at a word boundry.
| # or
[aeiouy]+ # consecutive vowels
[aeiouy] # with any vowel following
\b # that terminates at a word boundry.
) # ...end capture.
/$prefix$1/gisx; # Add 'op' to what we captured.
} # }}}
lib/Acme/Opish.pm view on Meta::CPAN
couple examples will elucidate this point:
enop('Abc') produces 'Opabc'
enop('abC') produces 'opabC'
Unfortunately, this function, currently converts consecutive spaces
and newlines into single spaces and newlines. Yes, this is not a
feature, but a bug.
* See the eg/ directory for examples.
view release on metacpan or search on metacpan
lib/Acme/Oppai.pm view on Meta::CPAN
Kazuhiro Osawa E<lt>ko@yappo.ne.jpE<gt>
=head1 THANKS TO
Mr.Oppai, higepon, tokuhirom, nipotan, hio, takesako, secondlife
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006 by Kazuhiro Osawa
view release on metacpan or search on metacpan
lib/Acme/PERLANCAR/Dummy/POD/LinkToSection.pm view on Meta::CPAN
our $DATE = '2021-07-26'; # DATE
our $DIST = 'Acme-PERLANCAR-Dummy'; # DIST
our $VERSION = '0.011'; # VERSION
1;
# ABSTRACT: Testing POD section links
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::PERLANCAR::Dummy::POD::LinkToSection - Testing POD section links
=head1 VERSION
This document describes version 0.011 of Acme::PERLANCAR::Dummy::POD::LinkToSection (from Perl distribution Acme-PERLANCAR-Dummy), released on 2021-07-26.
lib/Acme/PERLANCAR/Dummy/POD/LinkToSection.pm view on Meta::CPAN
=back
=head1 SOME SECTION
This is a filler section.
Paragraph 2.
Paragraph 3.
lib/Acme/PERLANCAR/Dummy/POD/LinkToSection.pm view on Meta::CPAN
Paragraph 15.
=head1 LINKS
Link to section Subheading 1 (a =head2): L</Subheading 1>.
Link to section Subheading 2 (a =head2): L</Subheading 2>.
Link to section Foo::Bar (a =head2 but text is inside a module link: =head2 LE<lt>Foo::BarE<gt>):
L</Foo::Bar>. On MetaCPAN, it works.
Link to section Baz (an =item): L</Baz>. On MetaCPAN, it sometimes works but
sometimes does not.
Link to section Baz (an =item but text is inside a link: =item *
LE<lt>Quux::CorgeE<gt>): L</Quux::Corge>. On MetaCPAN, it sometimes works but
sometimes does not.
=head1 TODO
Link to section with some text inside link, e.g.:
=head2 Some L<text>
Link to section with other kind of links or links with text:
=head2 Some L<text|https://example.org>
=head1 HOMEPAGE
view release on metacpan or search on metacpan
lib/Acme/PETEK/Testkit.pm view on Meta::CPAN
return $int1 + $int2;
}
=head2 subtract($int, $int)
Subtracts the second integer from the first and returns the result.
=cut
sub subtract {
my ($int1, $int2) = @_;
view release on metacpan or search on metacpan
PGPSign/PGPSign.pm view on Meta::CPAN
$param{Data} = $data;
$param{Armour} = 1;
$param{Clearsign} = 1 unless $param{Clearsign};
$param{PassphraseCallback} = sub {
if (my $cert = $_[0]) {
printf "Enter passphrase for secret key %s: ",
$cert->key_id_hex;
} else {
print "Enter passphrase: ";
}
my $return = readline(*STDIN);
view release on metacpan or search on metacpan
use Acme::PIA::Export;
my $pia = Acme::PIA::Export->new(
"username" => "mylogin",
"password" => "verysecret"
);
$pia->export( "contacts" );
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/Meeting.pm view on Meta::CPAN
dtstart => DateTime->now,
freq => 'monthly',
byday => [ "-1th" ],
byhour => [ 20 ],
byminute => [ 0 ],
bysecond => [ 0 ],
);
bless $self, $class;
}
view release on metacpan or search on metacpan
lib/Acme/PM/Berlin/Meetings.pm view on Meta::CPAN
berlin-pm
=head1 NOTES
This module knows about special Berlin.PM traditions like postponing
the December meeting to the first or second week in January.
=head1 AUTHOR
Slaven Rezic
view release on metacpan or search on metacpan
lib/Acme/POE/Tree.pm view on Meta::CPAN
automatically after a short amount of time:
use Acme::POE::Tree;
my $tree = Acme::POE::Tree->new(
{
star_delay => 1.5, # shimmer star every 1.5 sec
light_delay => 2, # twinkle lights every 2 sec
run_for => 10, # automatically exit after 10 sec
}
);
$tree->run();
=head2 run
view release on metacpan or search on metacpan
inc/Module/Install/AutoInstall.pm view on Meta::CPAN
$self->makemaker_args( Module::AutoInstall::_make_args() );
my $class = ref($self);
$self->postamble(
"# --- $class section:\n" .
Module::AutoInstall::postamble()
);
}
sub auto_install_now {
view release on metacpan or search on metacpan
my $result = await($f);
```
## `await_sleep( $ms )`
Suspends the current fiber for `$ms` milliseconds. This is a non-blocking operation that allows other fibers to run
while the current one is paused.
```
async {
say "Taking a nap...";
When the called fiber finishes, control returns to the fiber that called it. It is an error to call a fiber that is
already done.
## Yielding
Yielding is the "secret sauce" of fibers.
A yielded fiber passes control back to its caller but remembers its exact state including all variables and the current
instruction pointer. The next time it's called, it resumes exactly where it left off.
```
These functions **suspend** the current fiber and offload the actual blocking work to the native thread pool.
## `await_sleep( $ms )`
Suspends the fiber for `$ms` milliseconds. While the background thread sleeps, other fibers can continue to execute.
## `await_read( $fh, $timeout = 5000 )`
Suspends the fiber until the filehandle `$fh` is ready for reading, or the `$timeout` (in milliseconds) is reached.
```perl
my $status = Acme::Parataxis->await_read($socket);
if ($status > 0) {
my $data = <$socket>;
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}->{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
view release on metacpan or search on metacpan
inc/Module/Install/AutoInstall.pm view on Meta::CPAN
$self->makemaker_args( Module::AutoInstall::_make_args() );
my $class = ref($self);
$self->postamble(
"# --- $class section:\n" .
Module::AutoInstall::postamble()
);
}
sub installdeps_target {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}->{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
}
$self->version_from($file) unless $self->version;
$self->perl_version_from($file) unless $self->perl_version;
# The remaining probes read from POD sections; if the file
# has an accompanying .pod, use that instead
my $pod = $file;
if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
$file = $pod;
}
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
view release on metacpan or search on metacpan
inc/Module/Install/AutoInstall.pm view on Meta::CPAN
$self->makemaker_args( ExtUtils::AutoInstall::_make_args() );
my $class = ref($self);
$self->postamble(
"# --- $class section:\n" .
ExtUtils::AutoInstall::postamble()
);
}
sub auto_install_now {
view release on metacpan or search on metacpan
inc/Module/Install/AutoInstall.pm view on Meta::CPAN
$self->makemaker_args( Module::AutoInstall::_make_args() );
my $class = ref($self);
$self->postamble(
"# --- $class section:\n" .
Module::AutoInstall::postamble()
);
}
sub installdeps_target {
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
}
for my $phase ( qw(configure build test runtime develop other) ) {
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}->{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
view release on metacpan or search on metacpan
Playwright.pm view on Meta::CPAN
$play = $ref->Make( $string );
$plaintext = $ref->UnMake( $play );
=head1 DESCRIPTION
To be honest, I did this mostly for the comedy value. I was toying with the idea of making a real steganography module, and the next thing I knew, I was writing Playwright instead. It does offer a degree of security (albeit not a terribly high degree...
=head1 AUTHOR
Kurt Kincaid <sifukurt@yahoo.com>
view release on metacpan or search on metacpan
0.02 January 30, 2013
- use =begin html rather than =for html
0.02 January 30, 2013
- remove unnecessary escapes
- added script loader in pod section
0.01 January 30, 2013
- Initial release
view release on metacpan or search on metacpan
lib/Acme/ppport.h view on Meta::CPAN
The default namespace is C<DPPP_>.
=back
The good thing is that most of the above can be checked by running
F<lib/Acme/ppport.h> on your source code. See the next section for
details.
=head1 EXAMPLES
To verify whether F<lib/Acme/ppport.h> is needed for your module, whether you
lib/Acme/ppport.h view on Meta::CPAN
_get_swash_invlist|||
_invlist_array_init|||n
_invlist_contains_cp|||n
_invlist_contents|||
_invlist_dump|||
_invlist_intersection_maybe_complement_2nd|||
_invlist_intersection|||
_invlist_invert|||
_invlist_len|||n
_invlist_populate_swatch|||n
_invlist_search|||n
_invlist_subtract|||
lib/Acme/ppport.h view on Meta::CPAN
ssc_anything|||
ssc_clear_locale|||n
ssc_cp_and|||
ssc_finalize|||
ssc_init|||
ssc_intersection|||
ssc_is_anything|||n
ssc_is_cp_posixl_init|||n
ssc_or|||
ssc_union|||
stack_grow|||
lib/Acme/ppport.h view on Meta::CPAN
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
* all the data that needs to be interpreter-local.
* 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
* 4. Use the MY_CXT_INIT macro such that it is called exactly once
* (typically put in the BOOT: section).
* 5. Use the members of the my_cxt_t structure everywhere as
* MY_CXT.member.
* 6. Use the dMY_CXT macro (a declaration) in all the functions that
* access MY_CXT.
*/
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}->{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
view release on metacpan or search on metacpan
lib/Acme/PriPara/MainMembers.pm view on Meta::CPAN
sub BUILD {
my ($self, $args) = @_;
my $ds = Data::Section::Simple->new( ref $self );
my $sections = $ds->get_data_section;
for my $section_name ( keys %{$sections} ) {
my $yml = YAML::Tiny->read_string( $sections->{$section_name} );
my $member_info = $yml->[0];
for my $key ( keys %{$member_info} ) {
$self->{$key} = $member_info->{$key};
}
}
view release on metacpan or search on metacpan
1.130 2022-12-31 19:38:40-05:00 America/New_York
- update author contact info
1.129 2021-06-18 22:01:46-04:00 America/New_York
- update author contact info
- add perl-support section
- happy juneteenth! (early)
1.128 2016-03-05 17:29:35-05:00 America/New_York
- added a "see also" section to docs (thanks, Sean Zellmer)
1.127 2013-10-24 22:28:18 America/New_York
- fix links to repo and issue tracker
1.126 2010-11-28 08:18:33 America/New_York
- improve accuracy of timing to subsecond measurements
1.125 2009-01-16
- packaging tweaks
1.124 2007-11-08
view release on metacpan or search on metacpan
- Tested in perl 5.8.4 (Mac OS X).
- LIMITATIONS revised.
0.33
- Minor documentation improvements.
- The section about labels was rewritten.
- Added Acme::Dot to SEE ALSO.
0.32 Sat Jun 19 16:09:44 2004
- Added OVERVIEW to POD.
- Minor documentation enhancements.
0.14
- "while:" is now correctly converted to "while ()"
- Added support for &-prototyped subroutines
0.13 Sun May 30 00:37:12 2004
- Added manhattan_intersection() implementation to t/algorithms.t
- Fixed: Broken code was being generated in lines with comments
following a Pythonic colon.
- Better conformance to perlstyle in some foreach patterns.
- Handling of continuation lines simplified.
view release on metacpan or search on metacpan
lib/Acme/RFC4824.pm view on Meta::CPAN
=item * TYPE
Determines the output format. Can either be 'ASCII' or 'ASCII art'.
In the first case, a string representation of the SFS frame is returned.
In the second case, an ASCII art representation is returned - as an
array of ASCII art strings in list context or as the concatenation in
scalar context.
=item * PACKET
view release on metacpan or search on metacpan
lib/Acme/RPC.pm view on Meta::CPAN
JSON posted to the server to specify the entire function/method call.
=head2 BUGS
There is no security. At all.
A lot of this stuff hasn't been tested. At all.
You will leak memory like crazy.
view release on metacpan or search on metacpan
Tells you the current robot position. It is only sent if the option Send robot coordinates is 1 or 2. If it is 1 the coordinates are sent relative the starting position, which has the effect that the robot doesn't know where it is starting, but only ...
=head3 RobotInfo [energy level (double)] [teammate? (int)]
If you detect a robot with your radar, this message will follow, giving some information on the robot. The opponents energy level will be given in the same manner as your own energy (see below). The second argument is only interesting in team-mode (w...
=head3 RotationReached [what has reached(int)]
When the robot option SEND_ROTATION_REACHED is set appropriately, this message is sent when a rotation (with RotateTo or RotateAmount) has finished or the direction has changed (when sweeping). The argument corresponds to 'what to rotate' in e.g. Rot...
=head2 Rotate [what to rotate (int)] [angular velocity (double)]
=back
Set the angular velocity for the robot, its cannon and/or its radar. Set 'what to rotate' to 1 for robot, 2 for cannon, 4 for radar or to a sum of these to rotate more objects at the same time. The angular velocity is given in radians per second and ...
=over 4
=head2 RotateTo [what to rotate (int)] [angular velocity (double)] [end angle (double)]
view release on metacpan or search on metacpan
lib/Acme/Rautavistic/Sort.pm view on Meta::CPAN
Dropsort is a fast, one-pass sorting algorithm suitable for many
applications.
Algorithm Description Dropsort is run on an ordered list of numbers by
examining the numbers in sequence, beginning with the second number in
the list. If the number being examined is less than the number before
it, drop it from the list. Otherwise, it is in sorted order, so keep
it. Then move to the next number.
After a single pass of this algorithm, the list will only contain