Result:
found more than 668 distributions - search limited to the first 2001 files matching your query
( run in 0.729 )
App-Elog
view release on metacpan or search on metacpan
sub show_list {
for my $log (@logs) {
my $selected = $log->{selected} ? "*" : " ";
my $size = "-";
my $updated = "";
if (-e $log->{file}) {
$size = human_readable(-s $log->{file});
my $mtime = (stat($log->{file}))[9];
$updated = time_diff_str($mtime, $now);
}
my $file = $log->{file};
my $line = sprintf "%s %-60s %-10s %s", $selected, $file, $size, $updated;
print "$line\n";
}
}
sub show_detailed_list {
for my $log (@logs) {
my $size = "-";
my $updated = "";
if (-e $log->{file}) {
$size = human_readable(-s $log->{file});
my $mtime = (stat($log->{file}))[9];
$updated = datestr($mtime) . " (" . time_diff_str($mtime, $now) . ")";
}
my $vhost = $log->{vhost};
print "$log->{file}\n";
if ($log->{selected}) {
print " selected\n";
}
print " size $size\n";
if ($updated) {
print " updated $updated\n";
}
if ($vhost) {
if ($vhost->{file}) {
print " config $vhost->{file}\n";
}
}
my $rotations = get_rotations($log->{file});
for my $r (@$rotations) {
my $size = human_readable(-s $r->{file});
my $mtime = (stat($r->{file}))[9];
my $updated = datestr($mtime) . " (" . time_diff_str($mtime, $now) . ")";
print " rotation $r->{name} $size $updated\n";
}
}
}
sub human_readable {
App-Env
view release on metacpan or search on metacpan
lib/App/Env.pm view on Meta::CPAN
=item Temp I<boolean>
If true, and the requested environment does not exist in the cache,
create it but do not cache it (this overrides the B<Cache> option).
If the requested environment does exist in the cache, return an
non-cached clone of it. The following options are updated in
the cloned environment:
SysFatal
=back
App-EventStreamr
view release on metacpan or search on metacpan
share/status/app/lib/angular/angular-cookies.js view on Meta::CPAN
*/
function push() {
var name,
value,
browserCookies,
updated;
//delete any cookies deleted in $cookies
for (name in lastCookies) {
if (isUndefined(cookies[name])) {
$browser.cookies(name, undefined);
}
}
//update all cookies updated in $cookies
for(name in cookies) {
value = cookies[name];
if (!angular.isString(value)) {
if (angular.isDefined(lastCookies[name])) {
cookies[name] = lastCookies[name];
} else {
delete cookies[name];
}
} else if (value !== lastCookies[name]) {
$browser.cookies(name, value);
updated = true;
}
}
//verify what was actually stored
if (updated){
updated = false;
browserCookies = $browser.cookies();
for (name in cookies) {
if (cookies[name] !== browserCookies[name]) {
//delete or reset all cookies that the browser dropped from $cookies
if (isUndefined(browserCookies[name])) {
delete cookies[name];
} else {
cookies[name] = browserCookies[name];
}
updated = true;
}
}
}
}
}]).
App-FTNDB
view release on metacpan or search on metacpan
lib/App/FTNDB/Nodelist.pm view on Meta::CPAN
$sql_statement .= "flags VARCHAR(128) DEFAULT ' ' NOT NULL, ";
$sql_statement .= "domain VARCHAR(8) DEFAULT 'fidonet' NOT NULL, ";
$sql_statement .= "ftnyear SMALLINT DEFAULT '0' NOT NULL, ";
$sql_statement .= "yearday SMALLINT DEFAULT '0' NOT NULL, ";
$sql_statement .= "source VARCHAR(16) DEFAULT 'local' NOT NULL, ";
$sql_statement .= "updated TIMESTAMP DEFAULT 'now' NOT NULL ";
$sql_statement .= ") ";
$db_handle->do("$sql_statement ") or croak($DBI::errstr);
return(0);
App-FargateStack
view release on metacpan or search on metacpan
lib/App/FargateStack.pm view on Meta::CPAN
};
# check for latest image...
$self->check_latest_image($task_name);
# this may be null if we are in dryrun mode and the config has not been updated
my $cluster_name
= $dryrun && !$cluster->{name}
? sprintf '%s-cluster', $config->{app}->{name}
: $cluster->{name};
lib/App/FargateStack.pm view on Meta::CPAN
die sprintf "usage: %s -c config-name start-service task-name [count]\n", $ENV{SCRIPT_NAME};
}
my $result = $self->update_task_count( $task_name, $count );
sleep 2; # wait a few seconds for status to be updated
return $self->cmd_service_status($task_name);
}
########################################################################
lib/App/FargateStack.pm view on Meta::CPAN
);
log_die( $self, "ERROR: could not update service: [%s]\n%s", $service_name, $ecs->get_error )
if !$result;
$self->log_info( 'redeploy: successfully updated service: [%s]', $service_name );
return $SUCCESS;
}
########################################################################
App-FastishCGI
view release on metacpan or search on metacpan
- Fixed shebang path
- Use a different changelog generator
- * updated and fixed debian packaging
* added test cgi scripts (no auto tests yet!)
* improvements to dzil and podweaver
* doc tweaks
- * Using Pod::Weaver
App-FeedDeduplicator
view release on metacpan or search on metacpan
lib/App/FeedDeduplicator/Publisher.pm view on Meta::CPAN
=head2 publish
The main method that publishes the deduplicated entries to the specified
format (Atom or JSON).
It sorts the entries based on their issued, modified, updated, or date
attributes and limits the output to the specified maximum number of entries.
It generates the output in the specified format and prints it to STDOUT.
=cut
lib/App/FeedDeduplicator/Publisher.pm view on Meta::CPAN
field $format :param //= 'Atom';
field $max_entries :param //= 10;
method publish {
my @sorted = sort {
($b->{entry}->issued || $b->{entry}->modified || $b->{entry}->updated || $b->{entry}->date || 0)
<=>
($a->{entry}->issued || $a->{entry}->modified || $a->{entry}->updated || $a->{entry}->date || 0)
} @$entries;
if (@sorted > $max_entries) {
$#sorted = $max_entries - 1;
}
App-Fetchware
view release on metacpan or search on metacpan
lib/App/Fetchware.pm view on Meta::CPAN
tags used for new versions of php. These are sorted using the C<versonstring>
lookup() algorithm, and the latest one is returned.
download() uses C<git checkout [latesttag]> to "download" php by simply changing
the working directory to the latest tag. verify() uses git's cool C<verify-tag>
command to verify the gpg signature. unarchive() is updated to do nothing since
there is no archive to unarchive. However, because we reuse build(), archive()
must return a $build_path that build() will change its directory to. start() and
end() are also overridden, because managing a temporary directory is not needed,
so, instead, they just do a C<git checkout master> to switch from whatever the
latest tag is back to master, because git pull bases what it does on what branch
App-FileRenameUtils
view release on metacpan or search on metacpan
0.014 2023-11-20 Released-By: PERLANCAR; Urgency: low
- No functional changes.
- [build] Build against updated File::Util::DirList (0.002) which adds
two arguments to mv_files_to_dirs(): 'files_per_dir' and 'reverse'.
0.013 2023-11-20 Released-By: PERLANCAR; Urgency: medium
App-FirefoxUtils
view release on metacpan or search on metacpan
0.021 2022-10-09 Released-By: PERLANCAR; Urgency: low
- No functional changes.
- [build] Rebuild again with updated Perinci::Sub::To::CLIDocData
(0.302) to improve usage line (link to apppropriate Sah::Schema::*
module).
0.020 2022-10-09 Released-By: PERLANCAR; Urgency: low
- No functional changes.
- [build] Rebuild with updated Perinci::Sub::To::CLIDocData (0.301) to
improve usage line (link to apppropriate Sah::Schema::* module).
0.019 2022-10-07 Released-By: PERLANCAR; Urgency: low
- [doc] Mention App::BraveUtils.
0.018 2022-07-24 Released-By: PERLANCAR; Urgency: medium
- Update to App::BrowserUtils 0.017 (updated Sah schema name).
0.017 2022-05-20 Released-By: PERLANCAR; Urgency: medium
- Adjust to App::BrowserUtils 0.016 (add 'signal' argument to
- [ux] [cli ps-firefox] Make text output saner.
0.014 2020-07-19 Released-By: PERLANCAR; Urgency: medium
- Bump App::BrowserUtils to 0.009 (updated firefox's process name
pattern).
0.013 2020-06-13 Released-By: PERLANCAR; Urgency: medium
- Add CLI's: firefox-is-paused, ps-firefox.
0.003 2019-11-28 Released-By: PERLANCAR; Urgency: medium
- [build] Rebuild with updated Data::Sah (0.902) which has adjusted with
the new naming of Data::Sah::Coerce rule modules (0.034+).
0.002 2019-11-28 Released-By: PERLANCAR; Urgency: medium
App-Followme
view release on metacpan or search on metacpan
lib/App/Followme.pm view on Meta::CPAN
an argument or the folder the file passed as an argument is contained in.
Followme looks for its configuration files in all the directories above the
directory it is run from and runs all the modules it finds in them. But they are
are only run on the folder it is run from and subfolders of it. Followme
only looks at the folder it is run from to determine if other files in the
folder need to be updated. So after changing a file, it should be run from the
directory containing the file.
When followme is run, it searches the directories above it for configuration
files. The topmost file defines the top directory of the website. It reads each
configuration file it finds and then starts updating the directory passed as an
App-Framework
view release on metacpan or search on metacpan
lib/App/Framework/Extension/Filter.pm view on Meta::CPAN
option has been specified, then all output lines are buffered (into the state variable L</output_lines>) then written out at the end of processing all input. Similarly, if the L</inplace>
option is specified, then buffering is used to process the complete input file then overwrite it with the output.
=head2 Outfile option
The L</outfile> option may be used to set the output filename. This may include variables that are specific to the Filter extension, where the variables value is updated for each
input file being processed. The following Filter-sepcific variables may be used:
$filter{'filter_file'} = $state_href->{file} ;
$filter{'filter_filenum'} = $state_href->{file_number} ;
my ($base, $path, $ext) = fileparse($file, '\..*') ;
lib/App/Framework/Extension/Filter.pm view on Meta::CPAN
* app_start - allows hash setup
* app_end - allows file creation/tweak
* app
** return output line?
** HASH state auto- updated with:
*** all output lines (so far)
*** regexp match vars (under 'vars' ?)
** app sets HASH 'output' to tell filter what to output (allows multi-line?)
* options
** inplace - buffers up lines then overwrites (input) file
App-FromUnixtime
view release on metacpan or search on metacpan
lib/App/FromUnixtime.pm view on Meta::CPAN
our $VERSION = '0.17';
our $MAYBE_UNIXTIME = join '|', (
'created_(?:at|on)',
'updated_(?:at|on)',
'released_(?:at|on)',
'closed_(?:at|on)',
'published_(?:at|on)',
'expired_(?:at|on)',
'date',
App-GHGen
view release on metacpan or search on metacpan
scripts/generate_index.pl view on Meta::CPAN
}
push @html, <<"HTML";
<footer>
<p>Project: <a href="https://github.com/$config{github_user}/$config{github_repo}">$config{github_repo}</a></p>
<p><em>Last updated: $timestamp - <a href="$commit_url">commit <code>$short_sha</code></a></em></p>
</footer>
</body>
</html>
HTML
App-GenPericmdScript
view release on metacpan or search on metacpan
0.230 2020-04-29 Released-By: PERLANCAR; Urgency: low
- [build] Rebuild with updated deps to remove dependency to the
deprecated Perinci::Sub::ArgEntity::*.
0.22 2015-10-12 Released-By: PERLANCAR
App-GeoCancerPrognosticDatasetsRetriever
view release on metacpan or search on metacpan
data/bladder_cancer_GEO.txt view on Meta::CPAN
Platform: GPL80 Series: GSE89 40 Samples
FTP download: GEO (CEL) ftp://ftp.ncbi.nlm.nih.gov/geo/datasets/GDSnnn/GDS183/
DataSet Accession: GDS183 ID: 183
341. [Mouse430_2] Affymetrix Mouse Genome 430 2.0 Array
(Submitter supplied) Affymetrix submissions are typically submitted to GEO using the GEOarchive method described at http://www.ncbi.nlm.nih.gov/projects/geo/info/geo_affy.html June 03, 2009: annotation table updated with netaffx build 28 June 07, 20...
Organism: Mus musculus
601 DataSets 4393 Series 40 Related Platforms 57112 Samples
FTP download: GEO ftp://ftp.ncbi.nlm.nih.gov/geo/platforms/GPL1nnn/GPL1261/
Platform Accession: GPL1261 ID: 100001261
342. [HG-U133_Plus_2] Affymetrix Human Genome U133 Plus 2.0 Array
(Submitter supplied) Affymetrix submissions are typically submitted to GEO using the GEOarchive method described at http://www.ncbi.nlm.nih.gov/projects/geo/info/geo_affy.html June 03, 2009: annotation table updated with netaffx build 28 June 06, 20...
Organism: Homo sapiens
602 DataSets 5421 Series 61 Related Platforms 161817 Samples
FTP download: GEO ftp://ftp.ncbi.nlm.nih.gov/geo/platforms/GPLnnn/GPL570/
Platform Accession: GPL570 ID: 100000570
343. [HG-U133A] Affymetrix Human Genome U133A Array
(Submitter supplied) Affymetrix submissions are typically submitted to GEO using the GEOarchive method described at http://www.ncbi.nlm.nih.gov/projects/geo/info/geo_affy.html June 03, 2009: annotation table updated with netaffx build 28 June 08, 20...
Organism: Homo sapiens
364 DataSets 1121 Series 11 Related Platforms 42179 Samples
FTP download: GEO ftp://ftp.ncbi.nlm.nih.gov/geo/platforms/GPLnnn/GPL96/
Platform Accession: GPL96 ID: 100000096
344. [HuGene-1_0-st] Affymetrix Human Gene 1.0 ST Array [transcript (gene) version]
(Submitter supplied) Affymetrix submissions are typically submitted to GEO using the GEOarchive method described at http://www.ncbi.nlm.nih.gov/projects/geo/info/geo_affy.html June 03, 2009: annotation table updated with netaffx build 28 June 18, 20...
Organism: Homo sapiens
136 DataSets 1799 Series 26 Related Platforms 37103 Samples
FTP download: GEO ftp://ftp.ncbi.nlm.nih.gov/geo/platforms/GPL6nnn/GPL6244/
Platform Accession: GPL6244 ID: 100006244
345. Illumina HumanHT-12 V4.0 expression beadchip
(Submitter supplied) The HumanHT-12 v4 Expression BeadChip provides high throughput processing of 12 samples per BeadChip without the need for expensive, specialized automation. The BeadChip is designed to support flexible usage across a wide-spectru...
Organism: Homo sapiens
51 DataSets 2760 Series 4 Related Platforms 97140 Samples
FTP download: GEO (TXT) ftp://ftp.ncbi.nlm.nih.gov/geo/platforms/GPL10nnn/GPL10558/
Platform Accession: GPL10558 ID: 100010558
App-Git-IssueManager
view release on metacpan or search on metacpan
Change: 14c7f4b5e8c1e738bd6bc1272b4b0357095582c5
Author: Dominik Meyer <dmeyer@hsu-hh.de>
Date : 2021-05-25 21:28:34 +0000
ADD: updated repository url
Change: 08cf6c3b172e43ea8fd2776a1812e77716ad1ba3
Author: Dominik Meyer <dmeyer@federationhq.de>
Date : 2019-03-24 00:35:54 +0000
App-Git-Perl
view release on metacpan or search on metacpan
- show all recent versions, not only the latest ones
0.1.17 2026-02-24 23:30
- updated to version 0.1.17
- remove config file when the file is empty/not needed anymore
- Ignoring temporary development notes within MANIFEST.SKIP file
- updated wording in test script - "Able to" -> "I can"
- updated test script validation of initial getting data from remote site/metacpan.org
- updated distribution to 0.1.16
- updated version to 0.1.16 - changed endpoints to get repository details, caused by protecting metacpan.org by FastApi CDN on metacpan.org 0.1.15: - fixed script test when running on Windows
0.1.15 2022-07-21 22:40
- fixed disabling testing for Windows platform
- Added IO::Socket::SSL as requirement for installation/testing
0.1.13 2022-07-21 14:17
- updated version to 0.1.13
- updated ChangeLog
- fixed finding module listed on cli between recent and real repositories
- fixed tests - checking is repository cloned and where it is clone
- skip testing for Windows OS / not supported / linux only
- add comments in scripts for few tests
- fixed stderr leak when reading from nonexisting config file
0.1.12 2022-07-05 12:25
- added "provides" as required by Kwalitee
- updated ChangeLog
- rebuild distribution to fix changes from 0.1.11, related to Kwalitee
0.1.11 2022-07-05 02:41
- ignore Makefile from MANIFEST.SKIP, when preparing distribution
0.1.10 2022-07-03 13:44
- bump to version 0.1.10
- using HTTP::Tiny instead of curl
- updated minimum version of perl 5.14 because we are now using HTTP::Tiny instead of curl
0.1.9 2022-07-03 06:00
- bump to version 0.1.9
- added tests to MANIFEST/distribution
- added tests
0.1.8 2022-07-03 03:53
- updated bugtracking link in Makefile.PL
0.1.7 2022-07-03 03:38
- bump to version 0.1.7
- added CONTRIBUTING.md
- added bugtracked link to metacpan
0.1.5 2022-07-03 01:58
- bump to version 0.1.5
- updated documentation to use head1 instead of head2
0.1.4 2022-07-03 01:40
- bump to version 0.1.4
- moved from README to README.md and updated documentation
0.1.3 2022-07-03 00:34
- updated version to 0.1.3
- updated AUTHOR information in README and git-perl
- updated link to git-perl from App::Git::Perl
- removed required strict and warnings from Makefile.PL
- updated Makefile.PL to reflect minimum required Perl version of 5.6.0 (using perlver command)
- in MANIFEST.SKIP, fixed .git/ and added .tar.gz
0.1.2 2022-07-02 23:06
- bumped version to 0.1.2, and added .git to MANIFEST.SKIP
App-Git-Workflow
view release on metacpan or search on metacpan
lib/App/Git/Workflow/Command/Pom.pm view on Meta::CPAN
=item next
Finds the next available POM version number buy finding the current nighest
POM version and incrementing the second number. If C<--update> is used then
the POM version is updated to that number.
=item whos
Find which branch or branches use a POM version number.
App-GitGerrit
view release on metacpan or search on metacpan
lib/App/GitGerrit.pm view on Meta::CPAN
next unless @{$changes->[$i]};
require Text::Table;
my $table = Text::Table->new("ID\n&num", qw/STATUS CR UPDATED PROJECT BRANCH OWNER SUBJECT/);
foreach my $change (sort {$b->{updated} cmp $a->{updated}} @{$changes->[$i]}) {
if ($Options{verbose}) {
if (my $topic = gerrit_or_die(GET => "/changes/$change->{id}/topic")) {
$change->{branch} .= " ($topic)";
}
}
$table->add(
$change->{_number},
$change->{status},
code_review($change->{labels}{'Code-Review'}),
normalize_date($change->{updated}),
$change->{project},
$change->{branch},
$change->{owner}{name},
$change->{subject},
);
lib/App/GitGerrit.pm view on Meta::CPAN
Change-Id: $change->{change_id}
Subject: $change->{subject}
Owner: $change->{owner}{name}
EOF
foreach my $date (qw/created updated/) {
$change->{$date} = normalize_date($change->{$date})
if exists $change->{$date};
}
foreach my $key (qw/project branch topic created updated status reviewed mergeable/) {
printf "%12s %s\n", "\u$key:", $change->{$key}
if exists $change->{$key};
}
print "\n";
App-GitGot
view release on metacpan or search on metacpan
lib/App/GitGot/Command.pm view on Meta::CPAN
my @o = $entry->fetch;
# "git fetch" doesn't output anything to STDOUT only STDERR
my @err = @{ $entry->_wrapper->ERR };
# If something was updated then STDERR should contain something
# similar to:
#
# From git://example.com/link-to-repo
# SHA1___..SHA1___ main -> origin/main
#
lib/App/GitGot/Command.pm view on Meta::CPAN
if ( grep { /^From / } @err ) {
$msg .= $self->major_change('Updated');
$msg .= "\n" . join("\n",@err) unless $self->quiet;
}
elsif ( scalar @err == 0) {
# No messages to STDERR means repo was already updated
$msg .= $self->minor_change('Up to date') unless $self->quiet;
}
else {
# Something else occured (possibly a warning)
# Print STDERR and move on
lib/App/GitGot/Command.pm view on Meta::CPAN
sub _run_git_status {
my( $self , $entry ) = @_;
my %types = (
indexed => 'Changes to be committed' ,
changed => 'Changed but not updated' ,
unknown => 'Untracked files' ,
conflict => 'Files with conflicts' ,
);
my( $msg , $verbose_msg ) = ('','');
App-GitHooks-Plugin-ForceRegularUpdate
view release on metacpan or search on metacpan
lib/App/GitHooks/Plugin/ForceRegularUpdate.pm view on Meta::CPAN
# allowed.
my $last_update = File::Slurp::read_file( $update_file );
chomp( $last_update );
if ( !defined( $last_update ) # Invalid format.
|| ( $last_update !~ /^\d+$/ ) # Invalid format.
|| ( $last_update < time() - $max_update_age ) # Not updated in a long time.
|| ( $last_update > time() + 10 ) # Nice try setting the timestamp in the future to not have to update.
)
{
print $app->wrap(
$app->color(
App-GitHooks
view release on metacpan or search on metacpan
t/17-CommitMessage/25-update_message.t view on Meta::CPAN
);
is(
$commit_message->get_message(),
'Test 2.',
'get_message() returns the updated value.',
);
App-GitHub
view release on metacpan or search on metacpan
1.0 2012.05.01
1.0 release
non-interactive command-line options
0.13 2012.04.12
updated for api v3
0.12 2012.03.27
doesn't drop into a pager for short output
runs loadcfg at startup
doesn't require choosing a repository for certain actions
App-GitHubPullRequest
view release on metacpan or search on metacpan
lib/App/GitHubPullRequest.pm view on Meta::CPAN
return 0;
}
foreach my $pr ( @$prs ) {
my $number = $pr->{"number"};
my $title = encode_utf8( $pr->{"title"} );
my $date = $pr->{"updated_at"} || $pr->{'created_at'};
say join(" ", $number, $date, $title);
}
return 0;
}
lib/App/GitHubPullRequest.pm view on Meta::CPAN
unless defined $pr;
{
my $user = $pr->{'user'}->{'login'};
my $title = encode_utf8( $pr->{"title"} );
my $body = encode_utf8( $pr->{"body"} );
my $date = $pr->{"updated_at"} || $pr->{'created_at'};
say "Date: $date";
say "From: $user";
say "Subject: $title";
say "Number: $number";
say "\n$body\n" if $body;
}
my $comments = _api_read( $pr->{'comments_url'} );
foreach my $comment (@$comments) {
my $user = $comment->{'user'}->{'login'};
my $date = $comment->{'updated_at'} || $comment->{'created_at'};
my $body = encode_utf8( $comment->{'body'} );
say "-" x 79;
say "Date: $date";
say "From: $user";
say "\n$body\n";
lib/App/GitHubPullRequest.pm view on Meta::CPAN
);
die("git failed with error $rc when trying to add remote.\n")
if $rc != 0;
}
# Actually checkout the ref we just updated as pr/<number>
my ($content, $rc) = _run_ext(
qw(git checkout),
'-b', "pr/$number",
'--track', "$head_remote/$head_branch",
);
App-GitHubWebhooks2Ikachan
view release on metacpan or search on metacpan
t/resources/commit_comment/created.json view on Meta::CPAN
"html_url": "https://github.com/moznion/sandbox/commit/adfb4f5fa983e4fc5d5559d6b653284ca03f296d#commitcomment-5920929",
"id": 5920929,
"line": null,
"path": null,
"position": null,
"updated_at": "2014-04-06T13:06:59Z",
"url": "https://api.github.com/repos/moznion/sandbox/comments/5920929",
"user": {
"avatar_url": "https://avatars.githubusercontent.com/u/1422834?",
"events_url": "https://api.github.com/users/moznion/events{/privacy}",
"followers_url": "https://api.github.com/users/moznion/followers",
App-GitWorkspaceScanner
view release on metacpan or search on metacpan
lib/App/GitWorkspaceScanner.pm view on Meta::CPAN
If you are not using C<--workspace> to limit the scan to files on which you
have read permissions, this script needs to be run as root.
=item *
You should have C<updatedb> in your crontab running daily, to ensure that new
repositories are picked up.
=item *
You should run this script using C<nice>. While it uses C<locate>, it still has
App-Gitc
view release on metacpan or search on metacpan
lib/App/Gitc/Its/Jira.pm view on Meta::CPAN
my ( $rc, $status_exception );
eval {
my $jira = $self->get_jira_object or return;
$jira->addComment( $issue, $message );
my $updated_issue = $jira->progress_workflow_action_safely( $issue, $to );
my $jira_rest = $self->get_jira_rest_object or return;
$jira_rest->unwatch_issue( $issue->{id}, $jira_user )
if $jira_user eq $default_jira_user;
$rc = ( $issue->{id} == $updated_issue->{id} );
};
die $@ if $@; # rethrow unexpected exceptions
if ($reviewer) {
eval {
App-Glacier
view release on metacpan or search on metacpan
lib/App/Glacier/Bre.pm view on Meta::CPAN
do {
#10 is the default limit, send a marker if needed
my $res = $self->_send_receive(
GET => "/-/vaults?limit=10" . ($marker ? '&marker='.$marker : '')
);
# updated error severity
croak 'list_vaults failed with error ' . $res->status_line unless $res->is_success;
my $decoded = $self->_decode_and_handle_response( $res );
push @vaults, @{$decoded->{VaultList}};
$marker = $decoded->{Marker};
lib/App/Glacier/Bre.pm view on Meta::CPAN
croak "no vault name given" unless $vault_name;
my $res = $self->_send_receive(
GET => "/-/vaults/$vault_name/notification-configuration",
);
# updated error severity
croak 'get_vault_notifications failed with error ' . $res->status_line
unless $res->is_success;
return $self->_decode_and_handle_response( $res );
}
App-Greple-update
view release on metacpan or search on metacpan
lib/App/Greple/update.pm view on Meta::CPAN
B<greple> behaves as normal operation, that means only matched lines
are printed.
File is not touched as far as its content does not change.
The file is also not updated if the output is empty. This is to
prevent the contents of the file from being erased if none of the
match strings are included. If you want to intentionally empty a
file, you need to think of another way.
=item B<--with-backup>[=I<suffix>]
( run in 0.729 second using v1.01-cache-2.11-cpan-39bf76dae61 )