view release on metacpan or search on metacpan
0.11 2015-12-17 Released-By: PERLANCAR
- No functional changes.
- [build] Re-build with updated Perinci::To::POD (0.70) which fixes
rendering of modules' POD with regard to result_naked=1/args_as !=
'hash'.
0.10 2015-08-18 Released-By: PERLANCAR
view all matches for this distribution
view release on metacpan or search on metacpan
0.05 2015-12-17 Released-By: PERLANCAR
- No functional changes.
- [build] Re-build with updated Perinci::To::POD (0.72) which fixes
rendering of examples in modules' POD.
0.04 2015-12-17 Released-By: PERLANCAR
- No functional changes.
- [build] Rebuild with updated Perinci::To::Doc (0.69) to fix rendering
of result in examples in module's POD.
0.03 2015-12-17 Released-By: PERLANCAR
0.02 2015-12-17 Released-By: PERLANCAR
- No functional changes.
- [build] Rebuild with updated Pod::Weaver::Plugin::Rinci (0.50) which
fixes rendering of example results for CLI.
0.01 2015-12-17 Released-By: PERLANCAR
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/CamelPKI/SysV/Apache.pm view on Meta::CPAN
Note that a Web server works perfectly without a CRL, and therefore
calling I<update_crl> is optional. However, remember that CRLs have
expiration dates: once a CRL has been installed using this method, one
should plan for a suitable mechanism (e.g. a crontab entry) that will
download updated CRLs on a regular basis and submit them using
I<update_crl()>.
=cut
sub update_crl { "UNIMPLEMENTED" }
view all matches for this distribution
view release on metacpan or search on metacpan
t/initializr/process_zip.t view on Meta::CPAN
like( my $c0 = content( qr(/main.css$) ), qr/Author's custom styles/, "content check" );
is( $c0, content( qr(/main.css$)), "content not changed with no 2nd argument" );
lives_ok {content( qr(/main.css$), "/* new css file content /*\n" )}
"zip member content can beupdated";
is( content( qr(/main.css$)), "/* new css file content /*\n",
"new content reflected in zip" );
lives_ok {content( qr(/main.css$), $c0 )} "original content can inserted";
view all matches for this distribution
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/CriticDB/DB/Stor.pm view on Meta::CPAN
$db->store($filename,@violations);
$db->write();
=head1 DESCRIPTION
Provides reading and writing of L<Storable> databases of L<Perl::Critic> violations for L<App::CriticDB>. File locking prevents other processes from reading during writes. Timestamps are checked to ensure other processes haven't updated the datafil...
=head1 AUTHORS
Brian Blackmore (brian@mediaalpha.com).
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/DB.pm view on Meta::CPAN
$where{id} = { '!=' => $exclude_id } if defined $exclude_id;
return $self->_rs('Track')->search(\%where)->count;
}
# Bulk-rename: set $field = $new for every track where $field = $old.
# Returns the number of rows updated.
sub rename_field {
my ($self, $field, $old, $new) = @_;
return 0 unless defined $old && length $old;
return $self->_rs('Track')->search({ $field => $old })
->update({ $field => $new });
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