view release on metacpan or search on metacpan
script/jupiter view on Meta::CPAN
my $parser = Pod::Simple::Text->new();
$parser->parse_file($0);
}
}
sub update_cache {
my ($feeds, $files) = read_opml(@_);
make_directories($feeds);
load_feed_metadata($feeds, $files);
my $ua = Mojo::UserAgent->new->with_roles('+Queued')
->max_redirects(3)
script/jupiter view on Meta::CPAN
$feed->{message} = "No entry newer than 90 days";
$feed->{code} = 206; # partial content
}
}
sub updated {
my $node = shift;
return unless $node;
my @nodes = $xpc->findnodes('pubDate | atom:published | atom:updated', $node) or return;
my $date = $nodes[0]->textContent;
my $dt = eval { DateTime::Format::Mail->parse_datetime($date) }
view release on metacpan or search on metacpan
lib/App/lcpan.pm view on Meta::CPAN
_
},
},
tags => ['write-to-db', 'write-to-fs'],
};
sub update {
my %args = @_;
_set_args_default(\%args);
my $cpan = $args{cpan};
my $packages_path = "$cpan/modules/02packages.details.txt.gz";
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"Class/Accessor/Lite.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CLASS_ACCESSOR_LITE';
package Class::Accessor::Lite;use strict;our$VERSION='0.03';sub croak {require Carp;Carp::croak(@_)}sub import {shift;my%args=@_;my$pkg=caller(0);my%key_ctor=(rw=>\&_mk_accessors,ro=>\&_mk_ro_accessors,wo=>\&_mk_wo_accessors,);for my$key (sort keys...
CLASS_ACCESSOR_LITE
$fatpacked{"DBD/DBM.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_DBM';
require 5.008;use strict;package DBD::DBM;use base qw(DBD::File);use vars qw($VERSION $ATTRIBUTION $drh $methods_already_installed);$VERSION='0.03';$ATTRIBUTION='DBD::DBM by Jens Rehsack';sub driver ($;$) {my ($class,$attr)=@_;return$drh if ($drh);...
DBD_DBM
$fatpacked{"DBD/ExampleP.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_EXAMPLEP';
{package DBD::ExampleP;use strict;use Symbol;use DBI qw(:sql_types);require File::Spec;our (@EXPORT,$VERSION,@statnames,%statnames,@stattypes,%stattypes,@statprec,%statprec,$drh,);@EXPORT=qw();$VERSION="0.03";@statnames=qw(dev ino mode nlink uid gi...
DBD_EXAMPLEP
mimi.fatpack view on Meta::CPAN
}
EOI
DBI_DBD_SQLENGINE
$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
view release on metacpan or search on metacpan
bin/org-daemon view on Meta::CPAN
check_for_alarms();
colorize_entries();
}
sub update_lb {
if ($overview_widget eq 'listbox') {
$lb->delete(0, "end");
} else {
$lb->delete('all');
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
script/phoebe-ctl view on Meta::CPAN
$subcommand->(@ARGV);
exit;
sub update_changes {
my %pages;
my $now = time;
$pages{decode_utf8($_)} = modified("$dir/page/$_.gmi") for map { s/\.gmi$//; $_ } grep /\.gmi$/, read_dir("$dir/page");
say "Read " . scalar(keys %pages) . " pages" if $log >= 3;
say join("\n", map { $_ . "\t" . $pages{$_} } sort keys %pages) if $log >= 4;
view release on metacpan or search on metacpan
lib/App/pmodinfo.pm view on Meta::CPAN
my ( $self, $module ) = @_;
$module =~ s/::/-/g;
return "http://search.cpan.org/dist/$module";
}
sub update_modules {
my ( $self, @modules ) = @_;
my $cpan_util;
$cpan_util = which('cpanm') or which('cpan') or exit -1;
system( $cpan_util, @modules );
exit 0;
view release on metacpan or search on metacpan
lib/App/rimetadb.pm view on Meta::CPAN
features => {
progress => 1,
dry_run => 1,
},
};
sub update_from_modules {
require Module::List;
require Module::Path::More;
require Package::Util::Lite;
my %args = @_;
lib/App/rimetadb.pm view on Meta::CPAN
extra => {
schema => 'str*',
},
},
};
sub update {
require Perinci::Sub::Normalize;
my %args = @_;
my ($res, $dbh) = _connect_db(\%args);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
@section = map { $_ =~ s!^=\w+\s+!!; $_ } @section;
return join "", @section;
}
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/App/cdif/Command.pm view on Meta::CPAN
}
return $obj;
}
}
sub update {
use Time::localtime;
my $obj = shift;
$obj->data(join "\n", map { $obj->execute($_) } $obj->command);
$obj->date(ctime());
$obj;
view release on metacpan or search on metacpan
lib/App/termpub/Pager.pm view on Meta::CPAN
my $self = shift;
return 0 if !$self->pad_rows;
int( ( $self->line + 1 ) * 100 / $self->pad_rows );
}
sub update_screen {
my $self = shift;
clear;
refresh;
prefresh( $self->pad, $self->line, 0, 0, 0, $self->rows - 1,
$self->pad_columns );
view release on metacpan or search on metacpan
xt/002_run.t view on Meta::CPAN
open my $fh, '<', "$tmpdir2/x.txt" or die "$fname: $!";
my $src = do { local $/; <$fh> };
return $src;
}
sub update {
my $fname = "$tmpdir/@{[ rand ]}.txt";
diag "updating $fname";
open my $ofh, '>', $fname or die "$fname: $!";
print $ofh "YAY " . rand();
view release on metacpan or search on metacpan
lib/App/AquariumHive/Plugin/AqHive/State.pm view on Meta::CPAN
return {map {
$_, $self->$_()
} @attributes};
}
sub update {
my ( $self, $data ) = @_;
for (@attributes) {
$self->$_($data->{$_}) if defined $data->{$_};
}
return $self;
view release on metacpan or search on metacpan
lib/ArangoDB2/Document.pm view on Meta::CPAN
}
# update
#
# PATCH /_api/document/{document-handle}
sub update
{
my($self, $data, $args) = @_;
# process args
$args = $self->_build_args($args, ['keepNull', 'policy', 'waitForSync']);
# make request
view release on metacpan or search on metacpan
perllib/Arch/SharedIndex.pm view on Meta::CPAN
$self->_do_delete($index_list, \@keys);
});
return wantarray? @keys: \@keys;
}
sub update ($$;$) {
my $self = shift;
my $code = shift;
my $grep_code = shift;
die "No code or value given" unless defined $code;
my $entries_updated;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/Archive/Zip/Archive.pm view on Meta::CPAN
}
# $zip->updateMember( $memberOrName, $fileName );
# Returns (possibly updated) member, if any; undef on errors.
sub updateMember {
my $self = shift;
my ($oldMember, $fileName);
if (ref($_[0]) eq 'HASH') {
$oldMember = $_[0]->{memberOrZipName};
lib/Archive/Zip/Archive.pm view on Meta::CPAN
# whether the file or directory already exists in the zip file.
#
# If the fourth argument $mirror is true, then delete all my members
# if corresponding files were not found.
sub updateTree {
my $self = shift;
my ($root, $dest, $pred, $mirror, $compressionLevel);
if (ref($_[0]) eq 'HASH') {
$root = $_[0]->{root};
view release on metacpan or search on metacpan
my $key = "key_$i";
my $value = "value_from_thread_$i";
is($cache->get($key), $value, "Main: get $key");
}
sub update_worker {
my ($thread_id) = @_;
$cache->set("key", $thread_id);
return 1;
}
view release on metacpan or search on metacpan
lib/Argon/Manager.pm view on Meta::CPAN
}
sub capacity { $_[0]->tracker->{self}->capacity }
sub has_capacity { $_[0]->tracker->{self}->has_capacity }
sub update_queue_capacity {
my $self = shift;
$self->queue->max($self->capacity * 3);
}
sub next_worker {
view release on metacpan or search on metacpan
t/action_chain.t view on Meta::CPAN
}
package T2::Controller::Status;
use Ark 'Controller';
sub update :Chained('/status_chain') :PathPart :Args(0) {
my ($self, $c) = @_;
$c->res->body(
$c->stash->{user} . q['s status: "] . $c->stash->{status} . q[" will update]
);
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
return $1;
}
sub updateConstants {
my ($self) = @_;
my @constants = split( /\n/, $self->SUPER::constants(@_) );
foreach my $constant_definition (@constants) {
view release on metacpan or search on metacpan
lib/Artifactory/Client.pm view on Meta::CPAN
Update repository replication configuration
=cut
sub update_repository_replication_configuration {
my ( $self, $payload ) = @_;
return $self->_handle_repository_replication_configuration( 'post', $payload );
}
=head2 delete_repository_replication_configuration
lib/Artifactory/Client.pm view on Meta::CPAN
Updates a local multi-push replication configuration. Supported by local and local-cached repositories
=cut
sub update_local_multi_push_replication {
my ( $self, $payload ) = @_;
return $self->_handle_multi_push_replication( $payload, 'post' );
}
=head2 delete_local_multi_push_replication( $url )
lib/Artifactory/Client.pm view on Meta::CPAN
Updates an exiting user in Artifactory with the provided user details
=cut
sub update_user {
my ( $self, $user, %args ) = @_;
return $self->_handle_security( $user, 'post', 'users', %args );
}
=head2 delete_user( $user )
lib/Artifactory/Client.pm view on Meta::CPAN
Updates an exiting group in Artifactory with the provided group details
=cut
sub update_group {
my ( $self, $group, %args ) = @_;
return $self->_handle_security( $group, 'post', 'groups', %args );
}
=head2 delete_group( $group )
lib/Artifactory/Client.pm view on Meta::CPAN
Updates an exiting repository configuration in Artifactory with the provided configuration elements
=cut
sub update_repository_configuration {
my ( $self, $repo, $payload ) = @_;
return $self->_handle_repositories( $repo, $payload, 'post' );
}
=head2 delete_repository( $name )
lib/Artifactory/Client.pm view on Meta::CPAN
Changes the Custom URL base
=cut
sub update_custom_url_base {
my ( $self, $base ) = @_;
my $url = $self->_api_url() . '/system/configuration/baseUrl';
return $self->put(
$url,
'Content-Type' => 'text/plain',
lib/Artifactory/Client.pm view on Meta::CPAN
Updates the reverse proxy configuration
=cut
sub update_reverse_proxy_configuration {
my ( $self, %data ) = @_;
my $url = $self->_api_url() . "/system/configuration/webServer";
return $self->post(
$url,
view release on metacpan or search on metacpan
lib/AsposeCellsCloud/ApiClient.pm view on Meta::CPAN
# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
my ($self, $header_params, $query_params, $auth_settings) = @_;
if(!$self->need_auth()){
return;
}
return $self->_global_auth_setup($header_params, $query_params)
view release on metacpan or search on metacpan
lib/AsposeDiagramCloud/ApiClient.pm view on Meta::CPAN
# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
my ($self, $header_params, $query_params, $auth_settings) = @_;
return $self->_global_auth_setup($header_params, $query_params)
unless $auth_settings && @$auth_settings;
view release on metacpan or search on metacpan
lib/AsposeSlidesCloud/ApiClient.pm view on Meta::CPAN
}
# add auth, user agent and other headers
#
# @param array $headerParams header parameters (by ref)
sub update_headers {
my ($self, $header_params) = @_;
my $custom_headers = $self->{config}{custom_headers};
foreach my $key (keys %$custom_headers) {
$header_params->{$key} = $self->{config}{custom_headers}{$key};
}
lib/AsposeSlidesCloud/ApiClient.pm view on Meta::CPAN
}
# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
sub update_params_for_auth {
my ($self, $header_params) = @_;
if ((defined $self->{config}{app_sid} && $self->{config}{app_sid} ne "") && (!defined $self->{config}{access_token} || $self->{config}{access_token} eq "")) {
my $_url = $self->{config}{auth_base_url} . "/connect/token";
my $_request = POST($_url, {}, Content => 'grant_type=client_credentials&client_id='.$self->{config}{app_sid}.'&client_secret='.$self->{config}{app_key});
my $_response = $self->{ua}->request($_request);
view release on metacpan or search on metacpan
lib/AsposeThreeDCloud/ApiClient.pm view on Meta::CPAN
# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
my ($self, $header_params, $query_params, $auth_settings) = @_;
return $self->_global_auth_setup($header_params, $query_params)
unless $auth_settings && @$auth_settings;
view release on metacpan or search on metacpan
lib/Astro/FITS/CFITSIO/Simple/PrintStatus.pm view on Meta::CPAN
$next;
}
sub update {
my ( $self, $rows_done ) = @_;
$self->output( $rows_done, $self->{nrows} );
}
view release on metacpan or search on metacpan
lib/Astro/SpaceTrack.pm view on Meta::CPAN
return [
_get_retrieve_options(),
];
}
sub update {
my ( $self, @args ) = @_;
my ( $opt, $fn ) = $self->_parse_retrieve_args( @args );
$opt = { %{ $opt } }; # Since we modify it.
view release on metacpan or search on metacpan
lib/Async/Event/Interval.pm view on Meta::CPAN
$event->errors,
$event->interval
);
}
sub update {
# Because each event runs in its own process, $$ will be set to the
# process ID of the calling event, even though they both call this
# same function
$shared_data{$$}{called_count}++;