view release on metacpan or search on metacpan
lib/App/Changelord/Command/GitGather.pm view on Meta::CPAN
push $self->next_release->{changes}->@*, @messages;
$self->save_changelog;
say $self->source, " updated";
}
1;
__END__
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Chart/Barchart.pm view on Meta::CPAN
# Barchart provides the following for various futures exchanges around the
# world,
#
# @itemize
# @c @item
# @c Quotes updated every 5 minutes, delayed according to the exchange.
# @c @item
# @c Intraday graphs.
# @item
# Historical data, but only for the past 5 days, and no volume figures.
# @item
view all matches for this distribution
view release on metacpan or search on metacpan
docker run -it perl bash
# Go inside a running container.
docker container exec -it feedback-app bash
# Build updated perl image.
docker build -t my-perl .
docker run my-perl -E 'say $^V'
# Rename a docker container
docker container rename <CONTAINER_ID> my-perl-container
#############################################################
## Linux Commands - locate
#############################################################
# Search for a c header file (DES)
sudo updatedb # If added from apt-get
locate my_header
#############################################################
## Linux Commands - ls, ll
#############################################################
## Linux Accounts
#############################################################
# Check when a users account was created (good unless file was updated or touched)
ll ~SOME_USER/.bash_logout
# Check when a users account was created (good unless home account changed)
ll -d ~SOME_USER
echo ~SOME_USER | perl -lne 'print for -M,-C,-A'
# "complex" => 1
# }
# ]
# }
# Show where a complex data structure is being updated.
perl -MData::DPath -MCarp=longmess -MTie::Watch -Mojo -E 'my $data = {a => [0, {complex => 1}]}; say "\nBefore:"; say r $data; for my $node ( grep {ref} Data::DPath->match($data, "//") ){ say "Tying: $node"; Tie::Watch->new( -variable => $node, -stor...
#############################################################
## Perl Modules - Data::Dumper
#############################################################
## Perl Modules - Data::Trace
#############################################################
# Show where a complex data structure is being updated.
cpanm Data::Trace
perl -MData::Trace -Mojo -E 'my $data = {a => [0, {complex => 1}]}; say "\nBefore:"; say r $data; Data::Trace->Trace($data); sub BadCall{ $data->{a}[0] = 1 } say ""; BadCall(); say "After:"; say r $data'
# Data::Trace (WIP).
perl -Me -MData::Trace -E 'get("Kernel::System::Cache")->Set( Type => "Ticket", Key => "ABC", Value => [1..3] ); Data::Trace->Trace( get("Kernel::System::Cache") ); get("Kernel::System::Cache")->Delete( Type => "Ticket", Key => "ABC" )'
#############################################################
## Perl Modules - Enbugger
#############################################################
# Using a read,evaluate,print,loop in perl.
# Not updated since 2014 and failing to build.
#############################################################
## Perl Modules - Encode
#############################################################
#############################################################
# Tie Watch. OOP interface that hides making packages for tied variables
perl -MTie::Watch -le 'my $v=1; Tie::Watch->new(-variable => \$v, -fetch => sub{my $s=shift; $v=$s->Fetch; $s->Store($v+1); $v}); print $v; print $v; print $v'
# Check when a variable is updated. (watcher)
perl -MTie::Watch -Mojo -le 'my $h={a => [1..2]}; say r $h; Tie::Watch->new( -variable => \$h->{a}, -store => sub{my ($s,$v) = @_; $s->Store($v); my $Scope = 0; while( my ($Pkg,$Line) = caller(++$Scope) ){ say "$Pkg:$Line" } }); sub func{$h->{a}=456}...
# Check when a variable is updated. (watcher)
use Tie::Watch;
Tie::Watch->new(
-variable => \$Self->{Cache}->{ $Param{Type} }->{ $Param{Key} },
-store => sub{
my ($S,$Value) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
- [doc] Mention App::BraveUtils.
0.010 2022-07-24 Released-By: PERLANCAR; Urgency: medium
- Update to App::BrowserUtils 0.017 (updated Sah schema name).
0.009 2021-09-27 Released-By: PERLANCAR; Urgency: medium
- Add CLI: pause-and-unpause-chrome.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Chronicle/Config/Reader.pm view on Meta::CPAN
=head2 parseFile
Parse a configuration file, and insert any values into the provided
hash-reference.
The two parameters required are a hash-reference, which will be updated
with the configuration-values, and the name of the configuration file
to parse.
If the file specified does not exist no action is taken.
lib/Chronicle/Config/Reader.pm view on Meta::CPAN
Parse a single line.
This method is called internally, but it is exposed in case it might
be useful to other callers.
The two parameters required are a hash-reference, which will be updated
with the configuration-values, and a line of configuration-file content
which should be parsed.
If the line is missing, or consistes entirely of a comment, this is
not a problem. (e.g. C<"# this is a comment"> will result in no update
view all matches for this distribution
view release on metacpan or search on metacpan
my $change_count = $self->args('changes') || 1;
my @changes = CPAN::Changes->load( 'Changes' )->releases;
if($changes[-1]->date =~ m/^0000/) {
die '#' x 40, $/, ' ' x 3, "FATAL: 'Changes' date not updated",$/,'#' x 40, $/;
}
print $/;
print 'Subject: ClusterSSH ', $self->dist_version, ' release', $/;
print $/;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Cme/Command/run.pm view on Meta::CPAN
=head2 update copyright years in C<debian/copyright>
$ cme run update-copyright -cat
app: dpkg-copyright
load: Files:~ Copyright=~"s/2016,?\s+$name/2017, $name/g"
commit: updated copyright year of $name
$ cme run update-copyright -arg "name=Dominique Dumont"
cme: using Dpkg::Copyright model
Changes applied to dpkg-copyright configuration:
- Files:"*" Copyright: '2005-2016, Dominique Dumont <dod@debian.org>' -> '2005-2017, Dominique Dumont <dod@debian.org>'
lib/App/Cme/Command/run.pm view on Meta::CPAN
@@ -1,2 +1,2 @@
-2014-2016, Dominique Dumont <dod@debian.org>
+2014-2017, Dominique Dumont <dod@debian.org>
2005-2012, Jonas Smedegaard <dr@jones.dk>
[master ac2e6410] updated copyright year of Dominique Dumont
1 file changed, 2 insertions(+), 2 deletions(-)
=head2 update VcsGit in debian/control
$ cme run set-vcs-git -cat
view all matches for this distribution
view release on metacpan or search on metacpan
- relaxed testing adding delay of 1500 ms for each plugin test.
0.07 Thu Jul 04 2024
- fixed segfault in plugin PodViewer when testing on machines without the correct icon libraries.
- plugin console now functional.
- updated manual.
0.06 Tue Jun 18 2024
- fixed bugs in SessionManager module.
0.05 Mon Jun 17 2024
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Config/Chronicle.pm view on Meta::CPAN
required => 1,
);
=head2 chronicle_writer
The chronicle store that updated configurations can be stored into it. It should be an instance of L<Data::Chronicle::Writer>.
But user is free to implement any storage backend he wants if it is implemented with a 'set' method.
=cut
has chronicle_writer => (
lib/App/Config/Chronicle.pm view on Meta::CPAN
isa => 'Num',
required => 1,
default => 10,
);
has _updated_at => (
is => 'rw',
isa => 'Num',
required => 1,
default => 0,
);
lib/App/Config/Chronicle.pm view on Meta::CPAN
return;
}
=head2 check_for_update
check and load updated settings from chronicle db
Checks at most every C<refresh_interval> unless forced with
a truthy first argument
=cut
sub check_for_update {
my ($self, $force) = @_;
return unless $force or $self->_has_refresh_interval_passed();
$self->_updated_at(Time::HiRes::time());
# do check in Redis
my $data_set = $self->data_set;
my $app_settings = $self->chronicle_reader->get($self->setting_namespace, $self->setting_name);
lib/App/Config/Chronicle.pm view on Meta::CPAN
$self->chronicle_writer->set($self->setting_namespace, $self->setting_name, $settings, Date::Utility->new);
# since we now have the most recent data, we better set the
# local version as well.
$self->data_set->{version} = $settings->{_rev};
$self->_updated_at($settings->{_rev});
return 1;
}
=head2 current_revision
lib/App/Config/Chronicle.pm view on Meta::CPAN
sub update_cache {
my $self = shift;
die 'Local caching not enabled' unless $self->local_caching;
return unless $self->_has_refresh_interval_passed();
$self->_updated_at(Time::HiRes::time());
return unless $self->_is_cache_stale();
my $keys = [$self->dynamic_keys(), '_global_rev'];
my @all_entries = $self->_retrieve_objects_from_chron($keys);
lib/App/Config/Chronicle.pm view on Meta::CPAN
}
sub _has_refresh_interval_passed {
my $self = shift;
my $now = Time::HiRes::time();
my $prev_update = $self->_updated_at;
my $time_since_prev_update = $now - $prev_update;
return ($time_since_prev_update >= $self->refresh_interval);
}
sub _is_cache_stale {
view all matches for this distribution
view release on metacpan or search on metacpan
x App::Serializer::Html - serialize output as HTML for debugging/viewing
x App::Context::HTTP - add support for RPC and REST (in addition to web app support)
x App::Context::service_exists() - detect if a service exists in the config/session (generalizes session_object_exists())
VERSION 0.9661
x updated the dependencies so that the CPAN tests don't fail
VERSION 0.966
x add SharedDatastore as a useful service (with a Repository-based implementation)
x improved support for "temporary" services (named "temporary" or with the {temporary} arg)
(a "temporary service" is akin to a stateless session bean in Java)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CopyrightImage.pm view on Meta::CPAN
# write out the new image
$et->WriteInfo($img, $ci_img);
# updated
$et->ExtractInfo($ci_img);
$errors{$img} = "failed to add Copyright; "
if ! $et->GetValue('Copyright');
lib/App/CopyrightImage.pm view on Meta::CPAN
We will, by default, create a new sub-directory named C<ci> in the directory
found in the value, and if the directory is current working directory, we'll
create the sub directory there.
All updated images will be copied into the new C<ci> directory with the same
filename, with a <C>ci_</c> prepended to it.
Eg: C<"/home/user/Pictures">
=head4 check
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CpanfileSlipstop.pm view on Meta::CPAN
=head1 DESCRIPTION
C<cpanfile-slipstop> is a support tool for more definite and safety version bundling on L<cpanfile> and L<Carton>.
The C<carton install> command checks only to satisfy version specifications in cpanfile and C<local/>. Even if some module versions are updated in cpanfile.snapshot, the saved versions are not referred until you need to install it. This sometimes cau...
=head1 SEE ALSO
L<Carton>, L<Module::CPANfile>, L<CPAN::Meta::Requirements>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Critique/Command/clean.pm view on Meta::CPAN
info($_->path) foreach @removed_files;
info(HR_LIGHT);
}
if ( $opt->dry_run ) {
info('[dry-run] Would have updated list of %s file(s).', format_number(scalar @preserved_files));
}
else {
$session->set_tracked_files( @preserved_files );
$session->reset_file_idx;
info('Sucessfully updated list of %s file(s).', format_number(scalar @preserved_files));
$self->cautiously_store_session( $session, $opt, $args );
info('Session file stored successfully (%s).', $session->session_file_path);
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
2.282 2021-09-24
- Term::Choose minimum version is '1.739'.
- Code refactoring.
2.281 2021-08-29
- Adapt the code to the updated Term::Choose.
2.280 2021-08-24
- DBD::SQLite 1.68 or greater is required.
- print_table: table_name -> footer.
- Renamed the option 'f3' to 'search'.
2.220 2019-10-31
- Bugfix in the empty_to_null filter.
2.219 2019-10-30
- Update required Term::Choose-Util-versions.
- Adapt code to the updated Term::Choose-Util version.
2.218 2019-10-23
- Update documentation.
2.217 2019-10-20
2.209 2019-09-09
- Bugfix in 'subqueries': term_width -> get_term_width.
2.208 2019-09-05
- Adapt the code to the updated Term::Choose.
- Hide cursor fixes.
2.207 2019-08-09
- Require App::DBBrowser::Table.
- Bugfix in Join: use the right reference to get the driver type.
- Code refactoring.
2.203 2019-06-30
- Fetching column names and types: eval sql code.
- Keep the cursor hidden, avoid cursor flickering.
- Adapt code to work with the updated Term::Choose::LineFold::line_fold routine.
2.202 2019-05-09
- Update minimum version: Term::Choose, Term::Choose::Util, Term::From.
- Code refactoring.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Difio/dotCloud.pm view on Meta::CPAN
dotcloud push <app name>
8) If everything goes well you should see something like:
19:55:10 [www.0] Running postinstall script...
19:55:13 [www.0] Difio: Success, registered/updated application with uid ac5a3741-a564-4e59-aad2-3f51ea860521
That's it, you can now check your application statistics at
http://www.dif.io
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Diskd.pm view on Meta::CPAN
=item 3. using POE to achieve both of the above
=item 4. using POE to periodically run an external program without blocking
=item 5. encapsulating a data structure that can be accessed and updated by the above
=back
The information shared between peers in this example is the list of
disks that are currently attached to each system. The "blkid" program
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DistSync.pm view on Meta::CPAN
debug(" Script : %s", $remote_meta->{script} // '');
debug(" Status : %s", $remote_ok ? "OK" : "EXPIRED");
debug(" Time : %d sec", $remote_meta->{'time'} || 0);
}
unless ($remote_ok) {
debug("> [SKIPPED] Remote resource is expired. Last updated: %s", $remote_datef);
next
}
} else {
debug("> [SKIPPED] Remote resource is broken. Please contact the administrator of this resource");
next;
lib/App/DistSync.pm view on Meta::CPAN
say sprintf " Directory : %s", $remote_meta->{directory} // '';
say sprintf " Project : %s v%s", $remote_meta->{project} || ref($self), $remote_meta->{version} // '';
say sprintf " Script : %s", $remote_meta->{script} // $Script;
say sprintf " Time : %d sec", $remote_meta->{'time'} || 0;
unless ($remote_ok) {
say STDERR sprintf "NOTE! The resource is expired. Last updated: %s", $remote_datef;
next
}
} else {
printf STDERR "Can't download \"%s\": %s\n", $meta->{url}, $meta->{message};
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DocKnot/Config.pm view on Meta::CPAN
Sign distribution tarballs generated via C<docknot dist> with this PGP key.
Equivalent to the B<-p> option to C<docknot dist>.
=item versions
Path to the F<.versions> file that should be updated by C<docknot release>. A
F<.versions> file records the versions and release dates of software packages.
See L<App::Docknot::Spin::Versions> for more information.
=back
view all matches for this distribution
view release on metacpan or search on metacpan
0.138 2015-03-31 17:18 CEST
- implement 'SCHEDULE FETCH ALL' command
- Commands/Schedule.pm: in 'schedule_new', give the user feedback when schedule
is successfully inserted (WIP: feedback should include info whether schedule
was actually inserted or only updated - if updated, there might be a conflict
between new scode and the original one; not clear what the program should do
in such a case)
0.139 2015-04-03 07:05 CEST
- implement 'SCHEDULE FETCH ALL DISABLED'
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Dochazka/Common.pm view on Meta::CPAN
given period (tsrange) cannot be changed. That means, for intervals in
the locked tsrange:
=over
=item * existing intervals cannot be updated or deleted
=item * no new intervals can be inserted
=back
view all matches for this distribution
view release on metacpan or search on metacpan
config/REST_Config.pm view on Meta::CPAN
# DOCHAZKA_REST_SESSION_EXPIRATION_TIME
# number of seconds after which a session will be considered stale
set( 'DOCHAZKA_REST_SESSION_EXPIRATION_TIME', 3600 );
# DOCHAZKA_PROFILE_EDITABLE_FIELDS
# which employee fields can be updated by employees with privlevel 'inactive' and 'active'
# N.B. 1 administrators can edit all fields, and passerbies can't edit any
# N.B. 2 if LDAP authentication and LDAP import/sync are being used, it may not
# make sense for employees to edit *any* of the fields
# N.B. 3 this site param affects the functioning of the "POST employee/self" and "POST employee/current" resources
set( 'DOCHAZKA_PROFILE_EDITABLE_FIELDS', {
view all matches for this distribution
view release on metacpan or search on metacpan
- redesign changePassword dialog - it now asks for confirmation, but the
password is still displayed on-screen (ick!)
0.113 2014-09-24 11:55 CEST
- emp-lib.js: when password change is saved successfully, display "Password
changed" message instead of "Employee profile updated"
0.114 2014-09-24 16:41 CEST
- js/: migrate lots of employee profile code from previous incarnation
- status: new employee functionality works as long as non-ASCII characters
are not entered; when non-ASCII characters are entered, the REST server
- dform-init.js: add status, statusSince empProfile entries
- js: drop dispEmployee target
- Make "My profile" display "Status" and "Status since"
- Rename empProfileEdit target to empProfileEditRemark
- emp-lib.js: separate myProfile function
- Make "Edit remark" display updated employee profile
0.137 2016-09-25 21:47 CEST
- Fix hook in empProfileEditRemark
- Rip out password change feature
- Fix "My profile" + Masquerade mode
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DrivePlayer/GUI/MetadataFetch.pm view on Meta::CPAN
close $writer;
$self->_meta_pid($pid);
$self->_meta_reader($reader);
$self->_meta_buf(q{});
my $updated = 0;
my $finish = sub {
if (my $wid = $self->_meta_watch_id) {
$self->_meta_watch_id(undef);
Glib::Source->remove($wid);
lib/App/DrivePlayer/GUI/MetadataFetch.pm view on Meta::CPAN
my $process_msg = sub {
my ($msg) = @_;
if ($msg->{status}) {
$self->_set_status(
"$msg->{status} $msg->{n}/$msg->{total} ($updated updated): $msg->{title}"
);
}
elsif ($msg->{result}) {
$updated += $self->_apply_meta_result($msg);
}
return;
};
my $watch_id = Glib::IO->add_watch(fileno($reader), ['in', 'hup'], sub {
lib/App/DrivePlayer/GUI/MetadataFetch.pm view on Meta::CPAN
my $chunk = q{};
my $bytes = sysread($reader, $chunk, 65536);
if (!defined $bytes || $bytes == 0) {
$finish->();
$self->_set_status("Metadata fetch done â $updated of $total updated.");
$self->_load_library();
$self->_auto_sync_to_sheet() if $updated;
return FALSE;
}
my $buf = $self->_meta_buf . $chunk;
while ($buf =~ s/\A([^\n]+)\n//) {
view all matches for this distribution
view release on metacpan or search on metacpan
config/dumpDB.pl view on Meta::CPAN
included in the list. It would help if you include a YAML file mapping file such
as those accessible below under the <i>cfg</i> links.
</p>
<p>
Data generated with <a href="http://search.cpan.org/dist/App-DualLivedDiff">App::DualLivedDiff</a>. It is not
currently updated automatically. If you want to help and have a server with access to git and the ability to add a cron job, feel
free to get in touch.
</p>
<p>
Additional notes:
</p>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DuckPAN/Cmd/Server.pm view on Meta::CPAN
# This logic needs to be improved!
my $has_ddh = 0;
for (@script) {
if (my $src = $_->attr('src')) {
next if ($src =~ m/^\/\?duckduckhack_/); # Already updated, no need to do again
if ($src =~ m/^\/(dpan\d+|duckpan)\.js/) {
if ($has_ddh){
$_->attr('src','/?duckduckhack_ignore=1');
}
else {
view all matches for this distribution
view release on metacpan or search on metacpan
When run daily, such as from `cron`, `dusage` outputs daily and weekly
reports.
## Warning
This program was written in 1990 for Perl 3.0. Later I updated some
parts for Perl 5. As a result, the source is sometimes ugly.
## Availability
### Source Code
view all matches for this distribution
view release on metacpan or search on metacpan
script/list-dist-deps view on Meta::CPAN
=head2 Filtering options
=over
=item B<--added-or-updated-since-last-index-update>, B<--since-last-index-update>
Include only records that are added/updated since the last index update.
=item B<--added-or-updated-since-last-n-index-updates>=I<s>, B<--since-last-n-index-updates>
Include only records that are added/updated since the last N index updates.
=item B<--added-or-updated-since>=I<s>, B<--since>
Include only records that are added/updated since a certain date.
=item B<--added-since-last-index-update>
Include only records that are added since the last index update.
script/list-dist-deps view on Meta::CPAN
Default value:
"requires"
=item B<--updated-since-last-index-update>
Include only records that are updated since the last index update.
=item B<--updated-since-last-n-index-updates>=I<s>
Include only records that are updated since the last N index updates.
=item B<--updated-since>=I<s>
Include only records that are updated since certain date.
=item B<--with-xs-or-pp>
Check each dependency as XS/PP.
script/list-dist-deps view on Meta::CPAN
which is equivalent to setting C<< -plugins=-DumpArgs@before_validate_args@99,-Foo@after_validate_args,arg1,val1,arg2,val2 >>.
List of available configuration parameters:
added_or_updated_since (see --added-or-updated-since)
added_or_updated_since_last_index_update (see --added-or-updated-since-last-index-update)
added_or_updated_since_last_n_index_updates (see --added-or-updated-since-last-n-index-updates)
added_since (see --added-since)
added_since_last_index_update (see --added-since-last-index-update)
added_since_last_n_index_updates (see --added-since-last-n-index-updates)
dont_uniquify (see --dont-uniquify)
flatten (see --flatten)
script/list-dist-deps view on Meta::CPAN
level (see --level)
naked_res (see --naked-res)
perl_version (see --perl-version)
phase (see --phase)
rel (see --rel)
updated_since (see --updated-since)
updated_since_last_index_update (see --updated-since-last-index-update)
updated_since_last_n_index_updates (see --updated-since-last-n-index-updates)
with_xs_or_pp (see --with-xs-or-pp)
=head1 ENVIRONMENT
=head2 LIST_DIST_DEPS_OPT
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/EPAN.pod view on Meta::CPAN
=item C<< last_distlist >>
my @list = $instance->last_distlist;
List of distributions (last updated).
=item C<< last_modlist >>
my @list = $instance->last_modlist;
List of modules (last updated).
=back
=head1 COPYRIGHT AND LICENSE
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Easer/V2.pod view on Meta::CPAN
See L</Application High Level View>.
=item C<description>
my $text = $self->description;
$self->description($updated_description);
See L</Application High Level View>.
=item C<environment_prefix>
lib/App/Easer/V2.pod view on Meta::CPAN
It's also possible to break the chain of calls by setting the key to a
I<false> value.
It MUST be considered that the method is specific to each command, which
usually does not have an I<updated> view of the whole configuration,
because that is only known to the leaf command's object. For this
reason, method/callback C<final_commit> can also call method
C<final_commit_stack>, which provides a list of all command objects that
are involved in the chain, starting from the leaf command down towards
the root.
view all matches for this distribution
view release on metacpan or search on metacpan
# docker run --rm wangq/egaz:master bash share/check_dep.sh
# Github actions
# https://docs.docker.com/ci-cd/github-actions/
# Change this when Perl updated
ENV PATH=/home/linuxbrew/bin:/home/linuxbrew/.linuxbrew/Cellar/perl/5.34.0/bin:$PATH
RUN true \
&& apt-get update \
&& apt-get install -y --no-install-recommends \
view all matches for this distribution