Result:
found more than 499 distributions - search limited to the first 2001 files matching your query
( run in 1.225 )
Alt-App-makepatch
view release on metacpan or search on metacpan
script/makepatch view on Meta::CPAN
}
foreach $file ( @tmp ) {
# Skip unwanted files.
next if $file =~ /^\.\.?$/; # dot and dotdot
next if $file =~ /~$/; # editor backup files
my $realname = catfile ($dir, $file);
my $display_name = defined $disp ? catfile($disp,$file) : $file;
# Skip exclusions.
Alt-CWB-ambs
view release on metacpan or search on metacpan
die "failed" unless defined $reg; # will fail if not in canonical format
$reg = new CWB::RegistryFile "dickens"; # search in standard registry
$filename = $reg->filename; # retrieve full pathname
# edit standard fields
$name = $reg->name; # read NAME field
$reg->name("Charles Dickens");# modify NAME field
$corpus_id = $reg->id; # same for ID, HOME, INFO
$home_dir = $reg->home;
$info_file = $reg->info;
$reg->delete_info; # INFO line is optional and may be deleted
# edit corpus properties
@properties = $reg->list_properties;
$value = $reg->property("language"); # get property value
$reg->property("language", "en"); # set / add property
$reg->delete_property("language");
# edit attributes ('p'=positional, 's'=structural, 'a'=alignment)
@attr = $reg->list_attributes; # list all attributes
@s_attr = $reg->list_attributes('a'); # list alignment attributes
$type = $reg->attribute("word"); # 'p'/'s'/'a' or undef
$reg->delete_attribute("np");
$reg->add_attribute("np", 's'); # specify type when adding attribute
use Carp;
=head1 REGISTRY FILE EDITING
Registry files in B<canonical format> can be loaded into B<CWB::RegistryFile> objects,
edited using the various access methods detailed below, and written back to disk. It
is also possible to create a registry entry from scratch and save it to a disk file.
Canonical registry files consist of a B<header> and a B<body>. The
B<header> begins with a NAME, ID, PATH, and optional INFO field
can later be determined with the B<filename> method.
If the load operation failed (i.e. the file does not exist or is not in the
canonical registry file format), an error message is printed and an undefined
value returned (so this module can be used e.g. to write a robust graphical
registry editor). Always check the return value of the constructor before
proceeding.
=cut
sub new {
Alt-Crypt-OpenSSL-PKCS12-Broadbean
view release on metacpan or search on metacpan
lib/Alt/Crypt/OpenSSL/PKCS12/Broadbean.pm view on Meta::CPAN
=head1 SEE ALSO
C<Alt::*> namespace
L<Crypt::OpenSSL::PKCS12> for the credits
Alt-Digest-MD5-OpenSSL
view release on metacpan or search on metacpan
rfc1321.txt view on Meta::CPAN
[1] Rivest, R., "The MD4 Message Digest Algorithm", RFC 1320, MIT and
RSA Data Security, Inc., April 1992.
[2] Rivest, R., "The MD4 message digest algorithm", in A.J. Menezes
and S.A. Vanstone, editors, Advances in Cryptology - CRYPTO '90
Proceedings, pages 303-311, Springer-Verlag, 1991.
[3] CCITT Recommendation X.509 (1988), "The Directory -
Authentication Framework."
Alt-Math-Prime-FastSieve-Inline
view release on metacpan or search on metacpan
lib/Math/Prime/FastSieve.pm view on Meta::CPAN
This module is made possible by Inline::CPP, which wouldn't be possible
without the hard work of the folks involved in the Inline and Inline::C
project. There are many individuals who have contributed and continue to
contribute to the Inline project. I won't name them all here, but they do
deserve thanks and credit.
Dana Jacobsen provided several optimizations that improved even further on
the speed and memory performance of this module. Dana's contributions include
reducing the memory footprint of the bit sieve in half, and trimming cycles by
cutting in half the number of iterations of an inner loop in the sieve
Alt-Sub-Delete-NewPackageSeparator
view release on metacpan or search on metacpan
t/Test/Builder.pm view on Meta::CPAN
=item B<_my_exit>
_my_exit($exit_num);
Perl seems to have some trouble with exiting inside an END block. 5.005_03
and 5.6.1 both seem to do odd things. Instead, this function edits $?
directly. It should ONLY be called from inside an END block. It
doesn't actually exit, that's your job.
=cut
Alt-Tickit-Widgets-ObjectPad
view release on metacpan or search on metacpan
lib/Tickit/Widget/Entry.pm view on Meta::CPAN
method text { $_text }
=head2 $entry->set_text( $text )
Replace the text in the entry box. This completely redraws the widget's
window. It is largely provided for initialisation; for normal edits (such as
from keybindings), it is preferable to use C<text_insert>, C<text_delete> or
C<text_splice>.
=cut
AltaVista-PerlSDK
view release on metacpan or search on metacpan
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
AltaVista::PerlSDK - Perl extension for AltaVista Search Software Development Kit
Alter
view release on metacpan or search on metacpan
ppport.h -- Perl/Pollution/Portability Version 3.11_01
Automatically created by Devel::PPPort running under perl 5.009005.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
Use 'perldoc ppport.h' to view the documentation below.
----------------------------------------------------------------------
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
if (\$Devel::PPPort::VERSION < $VERSION) {
Alvis-Convert
view release on metacpan or search on metacpan
t/test-data/to-split/29.xml view on Meta::CPAN
<urls>
<url>http://www.seroundtable.com/archives/003633.html</url>
</urls>
</acquisitionData>
<canonicalDocument>
<section>A featured Search Engine Watch Forum thread named SEO & Newspapers discusses a recent NYTimes article named This Boring Headline Is Written for Google. The first paragraph of the article somes it up; Journalists over the years ha...
<metaData>
<meta name="title">New York Times Changes Web Only Headlines To Be Search Engine Friendly</meta>
<meta name="dc:date">Mon, 10 Apr 2006 13:37:11 GMT</meta>
<meta name="dc:type">text/html</meta>
</metaData>
Alvis-NLPPlatform
view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform/ParseConstituents.pm view on Meta::CPAN
####################################################################
#
# This file was generated using Parse::Yapp version 1.05.
#
# Don't edit this file, use source file instead.
#
# ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Alvis::NLPPlatform::ParseConstituents;
Alvis-QueryFilter
view release on metacpan or search on metacpan
Alvis::QueryFilter, Alvis::Treetagger
INSTALLATION
To install this module,
first edit the file 'lib/Alvis/Treetagger.pm' at the line:
$taggerRoot = "/usr/local/treetagger";
Place there the directory location of your installation of
Treetagger, with its lib/ and cmd/ directories etc.
Then type the following:
Alzabo
view release on metacpan or search on metacpan
lib/Alzabo/MethodMaker.pm view on Meta::CPAN
L<C<Alzabo::Runtime::RowCursor>|Alzabo::Runtime::RowCursor> object,
depending on the cardinality of the relationship.
For exa
Movie Credit
--------- --------
movie_id movie_id
title person_id
role_name
This would create a method for Movie row objects called C<Credit()>
which would return a cursor for the associated Credit table rows.
Similarly, Credit row objects would have a method called C<Movie()>
which would return the associated Movie row object.
=item * linking_tables => $bool
A linking table, as defined here, is a table with a two column primary
Amazon-EC2
view release on metacpan or search on metacpan
lib/Amazon/EC2.pm view on Meta::CPAN
DescribeImageAttribute
DescribeImages
DescribeImportImageTasks
DescribeImportSnapshotTasks
DescribeInstanceAttribute
DescribeInstanceCreditSpecifications
DescribeInstances
DescribeInstanceStatus
DescribeInternetGateways
DescribeKeyPairs
DescribeLaunchTemplates
lib/Amazon/EC2.pm view on Meta::CPAN
ModifyHosts
ModifyIdentityIdFormat
ModifyIdFormat
ModifyImageAttribute
ModifyInstanceAttribute
ModifyInstanceCreditSpecification
ModifyInstancePlacement
ModifyLaunchTemplate
ModifyNetworkInterfaceAttribute
ModifyReservedInstances
ModifySnapshotAttribute
Amazon-MWS
view release on metacpan or search on metacpan
lib/Amazon/MWS/XML/Order.pm view on Meta::CPAN
Available values:
=over 4
=item Expedited
=item FreeEconomy
=item NextDay
Amazon-SQS-Simple-AnyEvent
view release on metacpan or search on metacpan
[0.02] 2015-08-07
Documentation edits only.
[0.01] 2015-08-07
Initial release. Behold!
Ambrosia
view release on metacpan or search on metacpan
lib/Ambrosia/EntityDataModel.pm view on Meta::CPAN
return $driver->catalog, $driver->schema, $_[0]->table();
}
#Редактируемые Ð¿Ð¾Ð»Ñ (ÑохранÑемые в БД). По умолчанию вÑе public Ð¿Ð¾Ð»Ñ ÐºÐ»Ð°ÑÑа
#Edited fields (storage in Data Source). Default all publick fields of class.
sub edit_fields
{
return $_[0]->fields();
}
sub fields_mapping()
{
my $proto = shift;
return map { $proto->_map->{$_} || $_ } $proto->edit_fields();
}
#Возвращает Ð¸Ð¼Ñ ÐºÐ»ÑŽÑ‡Ð° клаÑÑа.
#СоответÑтвует автоинкрементному полю в БД.
#ЕÑли поле не автоинкрементное иÑпользуем key
lib/Ambrosia/EntityDataModel.pm view on Meta::CPAN
foreach ( pare_list($self->key, $self->key_value) )
{
$q->predicate($_->[0], '=', $_->[1]);
}
$q->execute($self->value($self->edit_fields));
}
sub find
{
my $proto = shift;
Amethyst
view release on metacpan or search on metacpan
Amethyst.pm view on Meta::CPAN
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Amethyst - Perl extension for blah blah blah
Amibroker-OLE-Interface
view release on metacpan or search on metacpan
lib/Amibroker/OLE/Interface.pm view on Meta::CPAN
You can run various analysis based on the action supplied.
But before that you need to pass APX file,
APX file is an important file to Amibroker engine. It is like the rule book to the amibroker.
The analysis project file (.apx extension) is human-readable self-explanatory XML-format file that can be written/edited/modified from any language / any text editor.
APX file includes all settings and formula needed in single file that is required to run analysis.
APX file instructs what the amibroker engine has to do.
NOTE: Be very careful in creating the apx file.
Amon2-Plugin-L10N
view release on metacpan or search on metacpan
lib/Amon2/Plugin/L10N.pm view on Meta::CPAN
=head2 run amon2-xgettext.pl
$ cd your_amon2_proj_base_dir
$ perl amon2-xgettext.pl en ja fr zh-tw
=head2 edit .po files
$ vim po/ja.po
$ vim po/zh-tw.po
=head1 Add Amon2 Context Method
Amon2-Plugin-Web-FillInForm
view release on metacpan or search on metacpan
lib/Amon2/Plugin/Web/FillInForm.pm view on Meta::CPAN
__PACKAGE__->load_plugins(qw/Web::FillInForm/);
1;
package MyApp::Web::C::Root;
sub post_edit {
my $c = shift;
$c->fillin_form($c->req());
$c->render('edit.html');
}
1;
=head1 DESCRIPTION
Amon2-Web-Dispatcher-RouterSimple-Extended
view release on metacpan or search on metacpan
- fixed typo. thanks @zakame
0.04
- edited pod & 'Test::Requires' append to cpanfile
0.03
- fixed get/post/put/delete functions and set $submap for instance caching
Amon2
view release on metacpan or search on metacpan
author/assets.pl view on Meta::CPAN
})();
...
open my $fh, '>:utf8', 'lib/Amon2/Setup/Asset/MicroTemplateJS.pm';
print {$fh} $xslate->render_string(<<'...', +{ file => $0, basename => 'micro_template.js', data => Dumper({ 'js/micro_template.js' => $content})});
# This file is generated by <% file %>. Do not edit manually.
package Amon2::Setup::Asset::MicroTemplateJS;
use strict;
use warnings;
sub tags {
author/assets.pl view on Meta::CPAN
$res->is_success or die "Cannot fetch $url: " . $res->status_line;
my $content = $res->decoded_content;
open my $fh, '>:utf8', "lib/Amon2/Setup/Asset/${name}.pm";
print {$fh} $xslate->render_string(<<'...', +{ file => $0, basename => basename($url), name => $name, data => Dumper({ 'js/' . basename($url) => $content})});
# This file is generated by <% file %>. Do not edit manually.
package Amon2::Setup::Asset::<% name %>;
use strict;
use warnings;
sub tags {
author/assets.pl view on Meta::CPAN
$res->is_success or die "Cannot fetch $url: " . $res->status_line;
my $jquery = $res->decoded_content;
open my $fh, '>:utf8', 'lib/Amon2/Setup/Asset/jQuery.pm';
print {$fh} $xslate->render_string(<<'...', +{ file => $0, basename => basename($url), data => Dumper({ 'js/' . basename($url) => $jquery})});
# This file is generated by <% file %>. Do not edit manually.
package Amon2::Setup::Asset::jQuery;
use strict;
use warnings;
sub tags {
author/assets.pl view on Meta::CPAN
}
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = 1;
my $content = $xslate->render_string(<<'...', {script => $0, content => Dumper($files)});
# This file is generated by <% script %>. Do not edit manually.
package Amon2::Setup::Asset::Bootstrap;
use strict;
use warnings;
sub tags {
Analizo
view release on metacpan or search on metacpan
To create a patch:
```console
git clone https://github.com/analizo/analizo.git
cd analizo
edit file
git commit file
git format-patch origin
```
This will generate patch files named like
Ananke-SqlLink
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Ananke::SqlLink extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.03 (Revision: 1.63) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
Ananke-Template
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Ananke::Template extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.03 (Revision: 1.63) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
Ananke-Utils
view release on metacpan or search on metacpan
Makefile.old view on Meta::CPAN
# This Makefile is for the Ananke::Utils extension to perl.
#
# It was generated automatically by MakeMaker version
# 6.03 (Revision: 1.63) from the contents of
# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
#
# ANY CHANGES MADE HERE WILL BE LOST!
#
# MakeMaker ARGV: ()
#
Android-ElectricSheep-Automator
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
# until this is resolved I am copying Android::ADB
# into my distribution, fixing the issues and renaming it to
# Android::ElectricSheep::Automator::ADB
# and using that. When the issue is resolved I will go back
# using Android::ADB
# Credits for Android::ADB (now Android::ElectricSheep::Automator::ADB)
# go to Marius Gavrilescu (marius@ieval.ro)
# as seen in:
# https://metacpan.org/pod/Android::ADB
#
use Android::ElectricSheep::Automator::ADB;
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
# sanitise the text a bit
# replace spaces with %s,
# also newlines seem not to be supported so replaces these as well
$text =~ s/[\n \t]/%s/g;
# first tap on the text edit widget at the specified coordinates to get focus
if( $self->tap($params) ){ $log->error("${whoami} (via $parent), line ".__LINE__." : error, failed to tap on the position of the recipient of the text input"); return 1 }
usleep(0.8);
# and send the text
# adb shell input text 'hello%sworld'
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
@position = ($m->[0], $m->[1]);
} elsif( exists($params->{'bounds'}) && defined($m=$params->{'bounds'}) ){
@position = ( int(($m->[1]->[0] + $m->[0]->[0])/2), int(($m->[1]->[1] + $m->[0]->[1])/2) );
} else { $log->error("${whoami} (via $parent), line ".__LINE__." : error, input parameter 'position' (as ['x','y']) or 'bounds' (as [lefttopX,lefttopY],[bottomrightX,bottomrighY]) was not specified."); return 1 }
# first tap on the text edit widget at the specified coordinates to get focus
if( $self->tap($params) ){ $log->error("${whoami} (via $parent), line ".__LINE__." : error, failed to tap on the position of the recipient of the text input"); return 1 }
usleep(0.8);
# from: https://stackoverflow.com/questions/32433303/clear-edit-text-adb
# the simplest way is input keycombination 113 29 && input keyevent 67
# but may not work
# then we try the lame way by erasing all chars one after the other
# part1:
my @cmd = ('input', 'keycombination', '113', '29');
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
if( $verbosity > 0 ){ $log->info("${whoami} (via $parent), line ".__LINE__." : sending command to adb: @cmd") }
$res = $self->adb->shell(@cmd);
if( ! defined $res ){ $log->error(join(" ", @cmd)."\n${whoami} (via $parent), line ".__LINE__." : error, above shell command has failed, got undefined result, most likely shell command did not run at all, this should not be happening. Info: this is...
if( $res->[0] != 0 ){ $log->error(join(" ", @cmd)."\n${whoami} (via $parent), line ".__LINE__." : error, above shell command has failed (Info: this is alternative part1), with:\nSTDOUT:\n".$res->[1]."\n\nSTDERR:\n".$res->[2]."\nEND."); return 1 }
# alternative/part2
# optional number of chars in the text-edit box, meaning how many
# times to press backspace, default is here (250)
# this is only needed for the second method (the failsafe)
my $numchars = (exists($params->{'num-characters'}) && defined($params->{'num-characters'}) && ($params->{'num-characters'}=~/^\d+$/) ) ? $params->{'num-characters'} : 250;
@cmd = ('input', 'keyevent', '--longpress', ('KEYCODE_DEL')x$numchars);
if( $verbosity > 0 ){ $log->info("${whoami} (via $parent), line ".__LINE__." : sending command to adb: @cmd") }
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
C<lib/Android/ElectricSheep/Automator/Plugins/Apps/Viber.pm>
for how this is done for the message-sending text-input widget
of the Viber app.
C<$params> is a HASH_REF which must contain C<text>
and one of the two position (of the text-edit widget)
specifiers C<position> or C<bounds>:
=over 4
=item B<C<text>>
the text to write on the text edit widget. At the
moment, this must be plain ASCII string, not unicode.
No spaces are accepted.
Each space character must be replaced with C<%s>.
=item B<C<position>>
should be an ARRAY_REF
as the C<X,Y> coordinates of the point to "tap" in order
to get the focus of the text edit widget, preceding the
text input.
=item B<C<bounds>>
should be an ARRAY_REF of a bounding rectangle
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
devices, in which case a failsafe way is employed
which deletes characters one after the other for
250 times.
C<$params> is a HASH_REF which must contain
one of the two position (of the text-edit widget)
specifiers C<position> or C<bounds>:
=over 4
=item B<C<position>>
should be an ARRAY_REF
as the C<X,Y> coordinates of the point to "tap" in order
to get the focus of the text edit widget, preceding the
text input.
=item B<C<bounds>>
should be an ARRAY_REF of a bounding rectangle
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
=item B<C<num-characters>>
how many times to press the backspace? Default is 250!
But if you know the length of the text currently at
the text-edit widget then enter this here.
=back
It returns C<0> on success, C<1> on failure.
lib/Android/ElectricSheep/Automator.pm view on Meta::CPAN
E.g. the plugin L<Android::ElectricSheep::Automator::Plugins::Apps::Viber>
will not send a message via Viber but it will mock it.
The live tests will sometimes fail because, so far,
something unexpected happened in the device. For example,
in testing sending input text to a text-edit widget,
the calendar will be opened and a new entry will be added
and its text-edit widget will be targeted. Well, sometimes
the calendar app will give you some notification
on startup and this messes up with the focus.
Other times, the OS will detect that some app is taking too
long to launch and pops up a notification about
"I<something is not responding, shall I close it>".
Android-Releases
view release on metacpan or search on metacpan
lib/Android/Releases.pm view on Meta::CPAN
);
our %SPEC;
# BEGIN FRAGMENT id=meta
# note: This section is generated by a script. Do not edit manually!
# src-file: /zpool_host_mnt/mnt/home/s1/repos/gudangdata/table/android_release/meta.yaml
# src-revision: bcd38551cd0cf53ff658d0eb432d480b80dd5fcf
# revision-date: Fri Nov 6 11:58:56 2015 +0700
# generate-date: Fri Nov 3 16:03:48 2017
# generated-by: /zpool_host_mnt/mnt/home/s1/repos/gudangdata/bin/gen-perl-meta-snippet
lib/Android/Releases.pm view on Meta::CPAN
pk => "version",
summary => "Android releases",
};
# END FRAGMENT id=meta
# BEGIN FRAGMENT id=data
# note: This section is generated by a script. Do not edit manually!
# src-file: /zpool_host_mnt/mnt/home/s1/repos/gudangdata/table/android_release/data.csv
# src-revision: ce50e84b7fbb58d0e0f138c8f27a3f01b40a03e9
# revision-date: Fri Nov 3 16:03:30 2017 +0700
# generate-date: Fri Nov 3 16:03:48 2017
# generated-by: /zpool_host_mnt/mnt/home/s1/repos/gudangdata/bin/gen-perl-data-snippet
( run in 1.225 second using v1.01-cache-2.11-cpan-de7293f3b23 )