Result:
found more than 682 distributions - search limited to the first 2001 files matching your query
( run in 0.748 )
App-OnePif
view release on metacpan or search on metacpan
secureContents:
password: you-wish
securityLevel: SL5
title: Foo
typeName: passwords.Password
updatedAt: 1234567890
uuid: FD7E562E94D447DCB8F3C3825F8471D9
All the fields you see come from the 1Password export, except for _id
that is added by 1pif.
App-Oozie
view release on metacpan or search on metacpan
lib/App/Oozie/Update/Coordinator.pm view on Meta::CPAN
}
next TRY;
}
$logger->info(
sprintf 'Coordinator %s updated%s',
$self->coord,
$self->dryrun ? ' (dryrun)' : EMPTY_STRING,
);
last TRY;
}
if ( ! $success ) {
$logger->fatal(
sprintf 'Coordinator %s was NOT updated%s.',
$self->coord,
$self->dryrun ? ' (dryrun)' : EMPTY_STRING,
);
if ( $last_out ) {
$logger->fatal( $last_out );
lib/App/Oozie/Update/Coordinator.pm view on Meta::CPAN
my @vtuple = split m{ \Q-cdh\E }xms, $oozie_build;
$oozie_version = shift @vtuple || die sprintf 'Unable to determine the Oozie server version from %s', $oozie_build;
$oozie_cdh_version = shift @vtuple || die sprintf 'Unable to determine the Oozie server CDH version from %s', $oozie_build;
$current_coord_user = $job->{user} || die sprintf 'Failed to locate the user running %s', $coord;
$current_xml = $job->{conf} || die sprintf 'No configuration for the job: %s', $coord;
# If you extend the coordinator, then this data gets updated but the
# XML config will retain the old and meaningless record. While
# it should be fine for the startTime, it will be bogus for the endTime
# and our shifting logic/workaround will not do anything and in fact
# the server will respond with an "Error: E0803" even when you want
# to update everything but the scheduling. For some reason XML conf
# does not get updated.
#
$meta_startTime = $job->{startTime} || die sprintf 'No startTime set for the job: %s', $coord;
$meta_endTime = $job->{endTime} || die sprintf 'No endTime set for the job: %s', $coord;
my $path = $job->{coordJobPath} || die sprintf 'No coordJobPath defined for the job: %s', $coord; # shouldn't happen
my $hdfs_dest = $self->default_hdfs_destination;
App-Open
view release on metacpan or search on metacpan
lib/App/Open/Backend.pm view on Meta::CPAN
=head1 EXAMPLES
Please look at App::Open::Backend::Dummy for a very basic rundown of
the API. This is what's used to test the backend interface
functionality, and as such will remain updated along with this
document concerning any changes to the API.
If you'd like something with more meat, App:;Open::Backend::YAML is
fully functional and relatively simple to understand.
App-OperaUtils
view release on metacpan or search on metacpan
- [doc] Mention App::BraveUtils.
0.007 2022-07-24 Released-By: PERLANCAR; Urgency: medium
- Update to App::BrowserUtils 0.017 (updated Sah schema name, add
option --signal to terminate-opera).
0.006 2020-08-18 Released-By: PERLANCAR; Urgency: high
App-PDF-Link
view release on metacpan or search on metacpan
lib/App/PDF/Link.pm view on Meta::CPAN
Blue Moon.mscz
Then two clickable icons will be added to page 24 of the document,
leading to these two files.
Upon completion, the updated PDF is written out under the specified name.
When invoked with the B<--targets> option, all specified PDF files get
links inserted to the targets on the first page. If there is only one
PDF file you can use the B<--pdf> option to designate the name of the
new PDF document, otherwise all PDF files are updated (rewritten.
=head1 OPTIONS
Note that all sizes and dimensions are in I<points> (72 points per inch).
=over 8
=item B<--pdf=>I<XXX>
Specifies the updated PDF to be written.
=item B<--embed>
Normally links are inserted into the PDF document that point to files
on disk. To use the links from the PDF document, the target files must
lib/App/PDF/Link.pm view on Meta::CPAN
B<--embed> the problem does not occur.
=item B<--targets=>I<FILE1> [ B<;> I<FILE2> ... ]
Explicitly specifies the target files to link to. In this case no CSV
is processed and the input PDF(s) are updated (rewritten) unless
B<--pdf> is used to designate the output PDF name.
=item B<--help>
Prints a brief help message and exits.
App-PFT
view release on metacpan or search on metacpan
bin/pft-edit view on Meta::CPAN
When the editor is terminated the file content is evaluated. A warning will
be issued if the header is invalid. If the file completely empty (zero
bytes) it will be removed from the filesystem. If the header is valid but
not consistent with the position in the filesystem (e.g. the date was
manually changed) the file position is updated according to the header.
=head2 The content header
Each entry starts with a header in I<YAML> format. The header defines the
properties of the entries. Valid properties with their descriptions follow
App-PM-Website
view release on metacpan or search on metacpan
lib/App/PM/Website.pm view on Meta::CPAN
Use C<pm-website> to render and maintain an up-to-date info page
for your Perl Monger group!
L<PM.org|http://pm.org> provides free hosting for perl monger groups.
Pages must be updated with webDAV and server-side scripts are not
allowed. C<pm-website> will update and install a static, template-driven
page via webDAV with minimal effort. Spend less time while creating a
more useful front page. Everyone wins!
=head1 COMMANDS
App-PasswordManager
view release on metacpan or search on metacpan
script/password_manager view on Meta::CPAN
}
} elsif (@edit_args == 2) {
my ($login, $new_password) = @edit_args;
eval {
$manager->edit_password($login, $new_password);
print "Password for '$login' updated successfully.\n";
};
if ($@) {
print "Error: $@\n";
}
} elsif ($copy) {
App-Pastebin-Create2
view release on metacpan or search on metacpan
0.15 2017-01-17
- updated dist.ini
0.14 2017-01-16
- updated dist.ini
0.13 2017-01-09
- fixed. :D
0.12 2017-01-09
App-Pastebin-sprunge
view release on metacpan or search on metacpan
t/02-retrieve.t view on Meta::CPAN
my ($out, $err) = output_from {
eval { App::Pastebin::sprunge->new->run };
print STDERR $@;
};
skip 'Test needs to be updated; email doherty@cpan.org', 1
if $err and $err =~ /No such paste/;
like $out => qr/ohaithar/, 'Paste retrieved - and done correctly';
}
App-Perl-Module-CopyrightYears
view release on metacpan or search on metacpan
CopyrightYears.pm view on Meta::CPAN
my $opts_hr = {
'prefix_glob' => '.*\(c\)\s+',
};
my $update_file = 0;
foreach (my $i = 0; $i < @license; $i++) {
my $updated = update_years($license[$i], $opts_hr,
$self->{'_opts'}->{'y'});
if ($updated) {
$license[$i] = $updated;
$update_file = 1;
}
}
if ($update_file) {
barf($license, (join '', @license));
App-PerlShell
view release on metacpan or search on metacpan
1.08 Tue Apr 7 10:05:00 2021
- .plshrc file in $HOME
- Semicolon not required with environment variable PERLSHELL_SEMIOFF=1
1.07 Thu Mar 26 10:05:00 2020
- `perldoc` command added and `ls` updated for multiple options
- Better COMMAND definition in hash for EXPORT and `help`
1.06 Tue Mar 10 23:05:00 2020
- Unbalanced ({[]}) can now execute with single semicolon ";" at
"More?" prompt
1.05 Thu Jun 6 14:05:00 2019
- App::PerlShell::Plugin::File
1.04 Thu May 3 14:05:00 2018
- AddOn => Plugin
- Fixed some POD mistakes and updated examples
- bin/plsh.pl SKIPVARS updated
1.03 Thu Apr 26 14:05:00 2018
- Added App::PerlShell::AddOn::Gnuplot from PPC::Plugin::Gnuplot
1.02 Wed Mar 21 14:05:00 2018
App-Phoebe
view release on metacpan or search on metacpan
lib/App/Phoebe.pm view on Meta::CPAN
$stream->write("<id>$link</id>\n");
$seen{$name . "\x1c"} = 1;
}
my ($sec, $min, $hour, $mday, $mon, $year) = gmtime($ts); # 2003-12-13T18:30:02Z
$ts = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
$stream->write("<updated>$ts</updated>\n");
$feed_ts = $ts if $ts gt $feed_ts;
$stream->write("<author><name>$code</name></author>\n");
$stream->write("</entry>\n");
}
$stream->write("<updated>$feed_ts</updated>\n");
$stream->write("</feed>\n");
}
sub serve_blog_atom {
my $stream = shift;
lib/App/Phoebe.pm view on Meta::CPAN
$stream->write("<link href=\"$link\"/>\n");
$stream->write("<id>$link</id>\n");
$stream->write(encode_utf8 "<content type=\"text\">" . quote_html(text($stream, $host, $space, $id)) . "</content>\n");
my ($sec, $min, $hour, $mday, $mon, $year) = gmtime($changes->{$id}); # 2003-12-13T18:30:02Z
my $ts = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);
$stream->write("<updated>$ts</updated>\n");
$feed_ts = $ts if $ts gt $feed_ts;
$stream->write("</entry>\n");
}
$stream->write("<updated>$feed_ts</updated>\n");
$stream->write("</feed>\n");
}
sub serve_raw {
my $stream = shift;
App-PhotoDB
view release on metacpan or search on metacpan
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
=item * C<$log> Write an event to the database log. Defaults to C<1>.
=head4 Returns
The number of rows updated
=cut
sub updaterecord {
# Pass in a hashref of arguments
lib/App/PhotoDB/funcs.pm view on Meta::CPAN
# Dump data for debugging
print "\n\nThis is what I will update into $table where:\n" unless $silent;
print Dump($where) unless $silent;
print Dump($data) unless $silent;
print "\n$rowcount records will be updated\n" unless $silent;
print "\n" unless $silent;
# Build query
my $sql = SQL::Abstract->new;
my($stmt, @bind) = $sql->update($table, $data, $where);
App-PickRandomLines
view release on metacpan or search on metacpan
script/_pick view on Meta::CPAN
#formatting like Log::Contextual. This eases code migration and teamwork. Each
#module author can preserve her own logging style, if wanted, and all the modules
#still use the same framework.
#
#B<Dynamic.> Outputs and levels can be changed anytime during run-time and logger
#routines will be updated automatically. This is useful in situation like a
#long-running server application: you can turn on tracing logs temporarily to
#debug problems, then turn them off again, without restarting your server.
#
#B<Interoperability.> There are modules to interop with Log::Any, either consume
#Log::Any logs (see L<Log::Any::Adapter::LogGer>) or produce logs to be consumed
App-Plog
view release on metacpan or search on metacpan
lib/App/Plog.pm view on Meta::CPAN
my $xml_atom_feed = XML::Atom::SimpleFeed->new
(
id => 0,
title => 'Plog Feed',
link => $page,
updated => $now_string ,
author => 'App::Plog',
) ;
while(my ($name, $entry) = each %{$entries})
{
lib/App/Plog.pm view on Meta::CPAN
$xml_atom_feed->add_entry
(
title => $name, #
link => "$page#$entry->[-1]{commit}",
id => $entry->[-1]{commit},
updated => $entry_date_string ,
#~ summary => 'Summary',
) ;
}
write_file("$temporary_directory/rss.xml", $xml_atom_feed->as_string()) ;
App-Pocoirc
view release on metacpan or search on metacpan
0.43 Thu May 19 15:40:10 GMT 2011
- Fix the interactive help message, it implied that commas weren't
needed in lists
- ReadLine.pm: Only restore stdio when we have been unregistered from
all IRC components
- The network name in the ReadLine UI wasn't getting updated when
running without a configuration file
0.42 Thu Apr 28 22:45:16 GMT 2011
- Fix the same exec() problem as in the previous release, this time under
--daemonize, because we were closing STDOUT/STDERR before redirecting
App-Pods2Site
view release on metacpan or search on metacpan
lib/App/Pods2Site.pm view on Meta::CPAN
$sitebuilder->makeSite($args, $podCopier->getWorkGroups(), $partCounts, $mainpage);
$args->finish();
my $style = $args->getStyle();
my $updatedOrCreated = $args->getUpdating() ? 'updated' : 'created';
print "Site $updatedOrCreated in '$siteDir' using style '$style'.\n" if $args->isVerboseLevel(0);
chdir($cwd);
return 0;
}
App-PowerManagementUtils
view release on metacpan or search on metacpan
0.002 2019-06-09 Released-By: PERLANCAR
- No functional changes.
- [build] Rebuild with updated PowerManagement::Any (0.005, examples for
sleep-is-prevented).
0.001 2019-05-22 Released-By: PERLANCAR
App-Prove-Plugin-Elasticsearch
view release on metacpan or search on metacpan
lib/App/Prove/Elasticsearch/Indexer.pm view on Meta::CPAN
$update{body}{doc}{status} = $opts{status} if $opts{status};
my $res = $e->update(%update);
print "Associated cases to document $hit->{_id}\n"
if $res->{result} eq 'updated';
if (!grep { $res->{result} eq $_ } qw{updated noop}) {
print
"Something went wrong associating cases to document $hit->{_id}!\n$res->{result}\n";
$failures++;
}
}
App-Prove-Plugin-SetEnv
view release on metacpan or search on metacpan
[PodSyntaxTests]
[NextRelease]
[GithubMeta]
[MetaJSON]
; Commit and push updated Changes from NextRelease
[Git::Commit]
[Git::Push]
App-Puppet-Environment-Updater
view release on metacpan or search on metacpan
lib/App/Puppet/Environment/Updater.pm view on Meta::CPAN
has 'environment' => (
is => 'ro',
isa => 'Str',
required => 1,
documentation => 'Environment/branch which should be updated',
);
has 'remote' => (
is => 'ro',
isa => 'Str',
lib/App/Puppet/Environment/Updater.pm view on Meta::CPAN
has 'workdir' => (
is => 'ro',
isa => 'Path::Class::Dir',
coerce => 1,
documentation => 'Directory to work in, should be the directory with the environment that should be updated',
default => sub {
return Path::Class::Dir->new('.')->absolute();
},
);
lib/App/Puppet/Environment/Updater.pm view on Meta::CPAN
my ($self) = @_;
my $workdir = pushd($self->get_workdir());
my $logger = $self->get_proxy_logger(YELLOW.'[update-submodules] '.RESET);
$logger->log('Updating submodules...');
if (my @updated = $self->get_git()->submodule('update', '--init')) {
$logger->log($_) for @updated;
}
else {
$logger->log('No submodules to update.');
}
lib/App/Puppet/Environment/Updater.pm view on Meta::CPAN
=over
=item branch
The name of the branch which should be updated.
=back
=head3 Result
App-PythonToPerl
view release on metacpan or search on metacpan
lib/Python/File.pm view on Meta::CPAN
chomp $ARG;
$python_preparsed_target->[-1]->{python_source_code} .= "\n" . $ARG;
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# multi-line includes with parentheses end differently than those without parentheses
if ($python_preparsed_target->[-1]->{python_has_parentheses}) {
# end multi-line include (w/ parentheses) when the last non-whitespace non-comment character is a close parentheses
if ($ARG =~ m/^.*\)\s*(?:\#.*)?$/) {
lib/Python/File.pm view on Meta::CPAN
chomp $ARG;
$python_preparsed_target->[-1]->{python_source_code} .= "\n" . $ARG;
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# end multi-line function header when it matches the entire regex;
# DEV NOTE, CORRELATION PYFI100: all regex changes must be reflected in both locations,
# the only difference should be the optional trailing comment pattern \s*(?:\#.*\n)?\s*
lib/Python/File.pm view on Meta::CPAN
chomp $ARG;
$python_preparsed_target->[-1]->{python_source_code} .= "\n" . $ARG;
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# end multi-line class header when it matches the entire regex;
# DEV NOTE, CORRELATION PYFI101: all regex changes must be reflected in both locations,
# the only difference should be the optional trailing comment pattern \s*(?:\#.*\n)?\s*
lib/Python/File.pm view on Meta::CPAN
print 'in python_file_to_python_preparsed(), have single-line \'\'\'comment\'\'\'', "\n";
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# check if previous component was same type
if (((scalar @{$python_preparsed_target}) > 0) and
$python_preparsed_target->[-1]->isa('Python::CommentSingleQuotes')) {
print 'in python_file_to_python_preparsed(), have single-line \'\'\'comment\'\'\', accumulating', "\n";
lib/Python/File.pm view on Meta::CPAN
print 'in python_file_to_python_preparsed(), have single-line \"\"\"comment\"\"\"', "\n";
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# check if previous component was same type
if (((scalar @{$python_preparsed_target}) > 0) and
$python_preparsed_target->[-1]->isa('Python::CommentDoubleQuotes')) {
print 'in python_file_to_python_preparsed(), have single-line \"\"\"comment\"\"\", accumulating', "\n";
lib/Python/File.pm view on Meta::CPAN
print 'in python_file_to_python_preparsed(), have multi-line include, starting', "\n";
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
push @{$python_preparsed_target},
Python::Include->new(
{
component_type => 'Python::Include',
lib/Python/File.pm view on Meta::CPAN
print 'in python_file_to_python_preparsed(), have single-line include', "\n";
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
push @{$python_preparsed_target},
Python::Include->new(
{
component_type => 'Python::Include',
lib/Python/File.pm view on Meta::CPAN
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# if multi-line function header, we must receive the function name as part of the first line,
# in order to pre-parse correctly below
$python_namespace_name = $2;
lib/Python/File.pm view on Meta::CPAN
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# if multi-line class header, we must receive the class name as part of the first line,
# in order to pre-parse correctly below
$python_namespace_name = $2;
lib/Python/File.pm view on Meta::CPAN
print 'in python_file_to_python_preparsed(), have UNKNOWN line of code', "\n";
chomp $ARG; # trim trailing newline, if present
# update last active character
$python_last_active_character = $self->python_last_active_character_find($python_last_active_character, $ARG);
print 'in python_file_to_python_preparsed(), possibly updated last active character to \'', $python_last_active_character, '\'', "\n";
# ensure we correctly parse all namespaces (functions & classes)
if ($ARG =~ m/^(\s*)def\s+/) {
croak 'ERROR EPYFI006a: Python function with UNKNOWN format, croaking';
}
App-RPi-EnvUI
view release on metacpan or search on metacpan
lib/App/RPi/EnvUI.pm view on Meta::CPAN
my $log = $log->child('/set_aux_state');
$log->_5("aux_id: $aux_id, state: $state");
$state = $api->aux_state($aux_id, $state);
$log->_6("$aux_id updated state: $state");
$api->switch($aux_id);
return to_json {
aux => $aux_id,
App-Rad
view release on metacpan or search on metacpan
give in the past few years. Because of this, we have been under
a long code freeze which I hope to end in the future. Until then
new releases will be made only for bugfixes, like this one.
- bugfix: --someoption=0 now sets options->{someoption} to 0
instead of 1 (ironcamel++)
- changelog updated to follow the CPAN Changes spec more closely.
1.04 2009-05-04
***MINOR API CHANGE*** => default is now to register only subs that do *not* start with an underscore
App-RecordStream
view release on metacpan or search on metacpan
- totable now respects explicit key ordering (Ben Bernard)
- Handle input streams as bytes instead of assuming UTF-8 (Shawn Halpenny)
- New and updated documentation for many operations
- Fix various --help-* options to recs-collate, recs-join, recs-multiplex
(Keith Amling, Ben Bernard, Thomas Sibley)
- Fix normalize time issues with newer Date::Manip versions (Ben Bernard)
App-Regather
view release on metacpan or search on metacpan
lib/App/Regather/Plugin/nsupdate.pm view on Meta::CPAN
logics is this:
1. get target ip address from LDAP obj
2. get name server/s from reverse zone for network, ip belongs to
3. get list of zones to be updated
3.1. from config file
first ns_zone record is used for PTR
3.2. from reverse zone TXT records
get TXT records from reverse zone for network, ip belongs to, and
lib/App/Regather/Plugin/nsupdate.pm view on Meta::CPAN
both parts should end with colon character
so, zone name in TXT record value starts with offset = length(PART1)+3
zone with priority 0 is used for PTR
c) reverse zone name is pushed to the end of list of zones to be updated
4. check existance and get if exist, A and PTR records for LDAP obj
4.1. if not exists, then add new either record and return
4.2. if exists, then check them against LDAP obj data
4.2.1. if match, then return
App-Repository
view release on metacpan or search on metacpan
t/DBI-getset.t view on Meta::CPAN
is($hash->{gender}, "M", "get_hashes()->[n] gender");
is($hash->{state}, undef, "get_hashes()->[n] state");
eval {
$nrows = $rep->set("test_person", undef, "gender", "M");
print "updated $nrows rows. ?!? shouldn't ever get here!\n";
};
ok($@, "set() with undef params");
####################################################################
# Exercise the special implied where conditions
App-Requirement-Arch
view release on metacpan or search on metacpan
lib/App/Requirement/Multidimensional_Requirement_Database.pod view on Meta::CPAN
- available man power
- requirement priorities
- requirement dependencies
- release scope
Timeplans are automatically updated based on:
- states of current work flows
----- Views -----
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Network/Slack.pm view on Meta::CPAN
$res->{'extradata'}{'slack_id'} = $slack_id;
$self->bot->config->db->do(q{
update channels
set extradata = ?,
updated_at = now() where id = ?
}, encode_json($res->{'extradata'}), $res->{'id'});
$channel = App::RoboBot::Channel->new(
id => $res->{'id'},
name => $res->{'name'},
lib/App/RoboBot/Network/Slack.pm view on Meta::CPAN
$res->{'extradata'}{'full_name'} = $userdata->{'user'}{'profile'}{'real_name'} if exists $userdata->{'user'}{'profile'}{'real_name'};
$self->bot->config->db->do(q{
update nicks
set extradata = ?,
updated_at = now()
where id = ?
}, encode_json($res->{'extradata'}), $res->{'id'});
$nick = App::RoboBot::Nick->new(
id => $res->{'id'},
( run in 0.748 second using v1.01-cache-2.11-cpan-05444aca049 )