Result:
found more than 668 distributions - search limited to the first 2001 files matching your query
( run in 1.367 )
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'},
App-Rssfilter
view release on metacpan or search on metacpan
lib/App/Rssfilter.pm view on Meta::CPAN
To use App::Rssfilter in your own project, create an L<App::Rssfilter::Group>, add feeds and rules and subgroups, then call its C<update> method. To load and save feeds to something other than the file system, extend L<App::Rssfilter::Feed::Storage> ...
=head1 BUGS
Only the current and last-fetched RSS documents are examined when filtering, so an item may not be classified as a duplicate and thus appear in two feeds. To illustrate, consider two RSS news feeds: National, which is frequently updated and contains ...
This can be mitigated by filtering Regional before National, or by fetching the National feed less frequently.
=head1 SEE ALSO
App-SD
view release on metacpan or search on metacpan
lib/App/SD/CLI/Command/Ticket/Comment/Update.pm view on Meta::CPAN
my @prop_set = $self->prop_set;
# we don't want to do prop: value editing by default for comments since
# it's just a blob of text
if (!@prop_set || $self->has_arg('edit')) {
my $updated_comment = $self->edit_text($record->prop('content'));
$record->set_prop(name => 'content', value => $updated_comment);
print "Updated comment " . $record->luid . " (" . $record->uuid . ")\n";
} else {
super();
}
};
App-SVN-Bisect
view release on metacpan or search on metacpan
lib/App/SVN/Bisect.pm view on Meta::CPAN
END
'start' => <<"END",
Usage: $0 [--min <rev>] [--max <rev>] start
Starts a new bisect session. You may specify the initial upper and lower
bounds, with the --min and --max options. These will be updated during the
course of the bisection, with the "before" and "after" commands.
This command will prepare the checkout for a bisect session, and start off
with a rev in the middle of the list of suspect revisions.
END
App-Sandy
view release on metacpan or search on metacpan
lib/App/Sandy/PieceTable.pm view on Meta::CPAN
my ($self, $pos) = @_;
# Catch orig index where pos is inside
my $index = $self->_piece_at($pos);
# Get piece which will be updated
my $old_piece = $self->_get_piece($index);
# Split at the beggining of a piece,
# or this piece has length 1
if ($pos == $old_piece->{start}) {
lib/App/Sandy/PieceTable.pm view on Meta::CPAN
# Create the second part of the split after the break position
my $piece = $self->_piece_new($old_piece->{ref}, $old_piece->{is_orig},
$pos, $old_end - $pos + 1, $pos);
# Insert second part after updated piece
$self->_splice_piece(++$index, 0, $piece);
# return corrected index that resolves to
# the position between the breaked piece
return $index;
App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iApply_bottom_mute.pm view on Meta::CPAN
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
#for suximage
$run->flow( \$flow[1] );
App-ShellCompleter-CpanUpload
view release on metacpan or search on metacpan
0.05 2015-09-27 (PERLANCAR)
- No functional changes.
- Rebuild with updated Getopt::Long::Patch::DumpAndExit to fix dumping
of coderefs [CT].
0.04 2015-09-17 (PERLANCAR)
App-ShellCompleter-cpanm
view release on metacpan or search on metacpan
lib/App/ShellCompleter/cpanm.pm view on Meta::CPAN
my %cargs = @_;
die "This script is for shell completion only\n"
unless $ENV{GETOPT_LONG_DUMP} || $ENV{COMP_LINE} || $ENV{COMMAND_LINE};
# the list of options is taken from Menlo::CLI:Compat. should be updated
# from time to time.
GetOptionsWithCompletion(
sub {
my %args = @_;
my $type = $args{type};
App-ShellCompleter-emacs
view release on metacpan or search on metacpan
my $noop = sub {};
$Getopt::Long::Complete::opt_bundling = 0;
# this is gathered from emacs manpage and should be updated from time to time.
GetOptionsWithCompletion(
sub {
my %args = @_;
my $type = $args{type};
my $word = $args{word};
App-ShellCompleter-perlbrew
view release on metacpan or search on metacpan
script/_perlbrew view on Meta::CPAN
% perlbrew install --a<tab>
% perlbrew use <tab>
=head1 DESCRIPTION
Last updated for L<perlbrew> version 0.75.
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-ShellCompleter-perlbrew>.
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Dist/CheckConflicts.pm view on Meta::CPAN
versions of modules separately, and deal with them after the module is done
installing.
For instance, say you have a module C<Foo>, and some other module C<Bar> uses
C<Foo>. If C<Foo> were to change its API in a non-backwards-compatible way,
this would cause C<Bar> to break until it is updated to use the new API. C<Foo>
can't just depend on the fixed version of C<Bar>, because this will cause a
circular dependency (because C<Bar> is already depending on C<Foo>), and this
doesn't express intent properly anyway - C<Foo> doesn't use C<Bar> at all. The
ideal solution would be for there to be a way to specify conflicting versions
of modules in a way that would let CPAN clients update conflicting modules
App-Slaughter
view release on metacpan or search on metacpan
lib/Slaughter/API/generic.pm view on Meta::CPAN
=over
=item File [mandatory]
The filename which should be examined and potentially updated.
=item Line [mandatory]
The line which should be searched for and potentially appended.
lib/Slaughter/API/generic.pm view on Meta::CPAN
The value to comment out the line with.
=item File [mandatory]
The filename which should be examined and potentially updated.
=item Pattern [mandatory]
The regular expression to match with.
=back
The return value of this function is the number of lines updated,
or -1 if the file could not be opened.
=cut
sub CommentLinesMatching
lib/Slaughter/API/generic.pm view on Meta::CPAN
Dest => "/etc/motd",
Owner => "root",
Group => "root",
Mode => "644" ) )
{
# File was created/updated.
}
else
{
# File already existed locally with the same contents.
}
lib/Slaughter/API/generic.pm view on Meta::CPAN
=over
=item File [mandatory]
The filename which should be examined and potentially updated.
=item Pattern [mandatory]
The pattern to test and potentially replace.
lib/Slaughter/API/generic.pm view on Meta::CPAN
The replacement text to use.
=back
The return value of this function is the number of lines updated,
0 if none, or -1 if the file could not be opened.
=cut
sub ReplaceRegexp
App-SlideServer
view release on metacpan or search on metacpan
lib/App/SlideServer.pm view on Meta::CPAN
=head2 viewers
A hashref of C<< ID => $context >> where C<$context> is the Mojo context
object for the client's websocket connection, and ID is the request ID for
that websocket. This is updated as clients connect or disconnect.
=head2 published_state
A hashref of various data which has been broadcast to all viewers.
This keeps track of things like the current slide, but you can extend it
App-SocialCalc-Multiplayer
view release on metacpan or search on metacpan
socialcalc/simpleedit14.pl view on Meta::CPAN
$newstr =~ s/^\[(spreadsheet|datatable|drawing)\:(.+?)\]/"[$1:$2:\n" . $page->{items}{$2}{text} . "\n:$1]"/gme;
}
open (PAGEFILEOUT, ">$datadir$pagename.page.txt");
print PAGEFILEOUT $newstr;
close PAGEFILEOUT;
$statusmessage .= "Saved updated page '$pagename'.<br>";
}
if ($q->param("editpage") || $q->param("editrawpage")) { # when one of the "editpage" buttons is pressed
return do_editpage($q, $pagename, $statusmessage);
}
socialcalc/simpleedit14.pl view on Meta::CPAN
open (PAGEFILEOUT, ">$datadir$pagename.page.txt");
print PAGEFILEOUT $pagestr;
close PAGEFILEOUT;
$statusmessage =
"Saved updated $sheettype '$sheetname' on page '$pagename'.<br>";
}
$response = do_displaypage($q, $pagename, $statusmessage); # Otherwise, display page
return $response;
App-SourcePlot
view release on metacpan or search on metacpan
-------
This application was originally written by Casey Best <cbest@uvic.ca> and
Pam Shimek <pshimek@uvic.ca>. It also includes patches by Remo Tilanus
<r.tilanus@jach.hawaii.edu> and Tim Jenness <tjenness@cpan.org>. For
version 1.17 it was updated to use the Astro::Coords and Astro::Catalog
modules by Graham Bell <g.bell@eaobservatory.org>.
Copyright (C) 2016-2024 East Asian Observatory.
Copyright (C) 2012-2014 Science and Technology Facilities Council.
Copyright (C) 1998, 1999 Particle Physics and Astronomy Research
App-SpamcupNG
view release on metacpan or search on metacpan
Change: 6c93a7c6ded6dc86d5437c2af176da338ab19cb9
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2024-04-30 23:42:09 +0000
chore: updated email
Change: 34a96502d53947696b88a17e400decf28188a623
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2024-04-13 21:02:45 +0000
Change: cc1ffb7c8c13bfdfdd52986954829747815d4573
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2022-03-20 20:59:05 +0000
doc: required updated
Change: 4ecae6374394049c6c408a8750d116d115a3dedf
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2022-03-20 20:58:46 +0000
Change: eaa8e9308ffd9065d035d876e5ade2dd15ba5aa4
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2022-03-12 12:26:09 +0000
chore: updated attribs and methods
Change: cd87e33a49a5cdbb60b78bd19aea1cda010ac032
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2022-03-12 12:25:43 +0000
Change: dcfa0e08f5cac81ecba0d14a7dc07d5f079a2633
Author: Alceu Rodrigues de Freitas Junior <glasswalk3r@yahoo.com.br>
Date : 2022-01-09 13:29:46 +0000
doc: updated list
Please enter the commit message for your changes. Lines starting
Change: e0ecededb33f0e18c71949892f6f70ef614eb494
Author: alceu.freitas <alceu.freitas@semantix.com.br>
App-Sqitch
view release on metacpan or search on metacpan
inc/Module/Build/Sqitch.pm view on Meta::CPAN
}
}
}
# If we moved any files, nofify the user that custom templates will need
# to be updated, too.
if ($notify) {
$self->log_warn(q{
#################################################################
# WARNING #
# #
App-Standby
view release on metacpan or search on metacpan
lib/App/Standby.pm view on Meta::CPAN
Some services may need additional configuration per users, so you can store additional config
under each user.
Now you need to change the notification order at least once to make sure all remote services
are updated. This happens only when the order is changed.
=head1 PLUGINS
Have a look at the examples directory for some example plugins.
App-Stash
view release on metacpan or search on metacpan
Revision history for App-Stash
0.02 Sat, 20 Nov 2010 19:08:07 +0100
- #63179 added missing dependency on Class::Accessor::Chained::Fast to Build.PL
- updated MANIFEST
0.01 15 Oct 2009
- First version, released on an unsuspecting world.
App-Staticperl
view release on metacpan or search on metacpan
- create a patch helper (SP-patch-postinstall) that is executed
after perl and eahc module install to do some important patches.
- rename the cpan-make-inmstall helper to SP-make-install-make.
- write mkbundle to bin/SP-mkbundle.
- new "staticperl perl" command.
- updated small/bigperl to 5.12.3.
1.21 Fri Mar 18 19:21:15 CET 2011
- ok, irix tar has no working -f and freebsd tar goes to a device
by default, so screw irix and go with freebsd.
- some bloke thought it's cool to force dynamic linking on darwin.
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
or
./Build install --installdirs vendor
If you're installing an updated version of a module that was included
with perl itself (i.e. a "core module"), then you may set
C<installdirs> to "core" to overwrite the module in its present
location.
(Note that the 'script' line is different from C<MakeMaker> -
( run in 1.367 second using v1.01-cache-2.11-cpan-39bf76dae61 )