view release on metacpan or search on metacpan
lib/Module/Provision/TraitFor/AddingFiles.pm view on Meta::CPAN
my $self = shift; my $flags = $self->cmd_line_flags; $flags->{test} = TRUE;
return $flags->{release} ? $self->release : $self->$_add_test_script;
}
sub update_file : method {
my $self = shift;
my $target = $self->next_argv or throw Unspecified, [ 'target' ];
my $index = {};
for my $t (map { my $k = $_->[ 0 ]; my $v = $_->[ 1 ];
view release on metacpan or search on metacpan
lib/Module/Refresh.pm view on Meta::CPAN
Updates the cached "last modified" time for $file.
=cut
sub update_cache {
my $self = shift;
my $module_pm = shift;
# In case the module was not loaded successfully.
return unless defined $INC{$module_pm};
view release on metacpan or search on metacpan
lib/Module/ScanDeps/FindRequires.pm view on Meta::CPAN
return 0;
}
########################################################################
sub update_requires {
########################################################################
my ( $self, $requires ) = @_;
my ( $fh, $tempfile ) = tempfile('requiresXXXXX');
view release on metacpan or search on metacpan
scripts/get_modules.pl view on Meta::CPAN
my $dist_info = update_dist_ini();
create_module( $count, $dist_info );
update_changes( $dist_info->{version}, $new_versions );
sub update_dist_ini {
my $dist_ini = curfile->dirname->child(qw/.. dist.ini/);
my $content = $dist_ini->slurp;
$content =~ s{version\s*=\s*(?<major>\d+\.)\K(?<minor>\d+)}{sprintf "%02d", $1+1}xmse;
my $version = $+{major} . sprintf( "%02d", $+{minor} + 1 );
scripts/get_modules.pl view on Meta::CPAN
);
return \%info;
}
sub update_changes ( $version, $new ) {
my $changes = curfile->dirname->child(qw/.. Changes/);
my $content = $changes->slurp;
my $today = localtime;
my $date = $today->ymd . ' ' . $today->hms;
view release on metacpan or search on metacpan
lib/MogileFS/Admin.pm view on Meta::CPAN
return $self->_mod_class(@_, 'create');
}
# update a class's mindevcount within a domain
sub update_class {
my MogileFS::Admin $self = shift;
# wrapper around _mod_class(update)
return $self->_mod_class(@_, 'update');
}
lib/MogileFS/Admin.pm view on Meta::CPAN
return $self->_mod_host($host, $args, 'create');
}
# edit a host
sub update_host {
my MogileFS::Admin $self = shift;
my $host = shift;
return undef unless $host;
my $args = shift;
lib/MogileFS/Admin.pm view on Meta::CPAN
return 1;
}
# edit a device
sub update_device {
my MogileFS::Admin $self = shift;
return undef if $self->{readonly};
my $host = shift;
my $device = shift;
return undef unless $host;
view release on metacpan or search on metacpan
lib/MogileFS/Plugin/FileRefs.pm view on Meta::CPAN
map { "ref_".$i++ => $_ } @{ $result }
});
}
sub update_schema {
my $store = Mgd::get_store();
my $dbh = $store->dbh();
$dbh->do($store->filter_create_sql(TABLE_fileref()))
or die "Failed to create table file_ref: ". $dbh->errstr;
view release on metacpan or search on metacpan
lib/MogileFS/FID.pm view on Meta::CPAN
$self->{$_} = $row->{$_} foreach qw(dmid dkey length classid devcount);
$self->{_loaded} = 1;
return 1;
}
sub update_devcount {
my ($self, %opts) = @_;
my $no_lock = delete $opts{no_lock};
croak "Bogus options" if %opts;
lib/MogileFS/FID.pm view on Meta::CPAN
} else {
return $sto->update_devcount_atomic($fidid);
}
}
sub update_class {
my ($self, %opts) = @_;
my $classid = delete $opts{classid};
croak "Bogus options" if %opts;
view release on metacpan or search on metacpan
lib/Mojito.pm view on Meta::CPAN
Update a page given: content, id and base_url
=cut
sub update_page {
my ( $self, $params ) = @_;
$self->parser->page($params->{content});
$self->parser->default_format($params->{wiki_language});
my $page = $self->page_structure;
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub sqlite_trace;
sub sqlite_txn_state;
sub sqlite_update_hook;
sub table_column_metadata;
sub txn_state;
sub update_hook;
}
package DBD::SQLite::dr {
sub dbixs_revision;
sub discon_all_;
sub disconnect_all;
view release on metacpan or search on metacpan
lib/Mojo/Command/Generate/InitScript/Freebsd.pm view on Meta::CPAN
# update /etc/rc.conf
$self->update_rc_conf( $opt->{'name'} ) if $opt->{'deploy'};
}
sub update_rc_conf
{
my ( $self, $name ) = @_;
my $fh = IO::File->new();
$fh->open('/etc/rc.conf', '+<') or die qq{Can't open /etc/rc.conf\n};
view release on metacpan or search on metacpan
lib/Mojo/Leds/Rest.pm view on Meta::CPAN
my $helper = $c->dbHelper;
my $f_table = $c->f_table;
return $c->helpers->$helper->$f_table( $c->table );
}
sub update {
my $c = shift;
return $c->_raise_error( "Resource is read-only", 403 ) if $c->ro;
my $json = $c->_json_from_body;
return unless ($json);
my $rec = $c->_update($json);
view release on metacpan or search on metacpan
examples/blog/lib/Blog/Controller/Posts.pm view on Meta::CPAN
my $id = $self->posts->add($validation->output);
$self->redirect_to('show_post', id => $id);
}
sub update {
my $self = shift;
my $validation = $self->_validation;
return $self->render(action => 'edit', post => {}) if $validation->has_error;
view release on metacpan or search on metacpan
lib/Mojo/Netdata/Collector.pm view on Meta::CPAN
return $self->recurring_update_p;
});
}
sub register ($self, $config, $netdata) { }
sub update_p ($self) { Mojo::Promise->resolve }
sub emit_data ($self) {
my @stdout = map { $self->charts->{$_}->data_to_string } sort keys %{$self->charts};
return $self->emit(stdout => join '', @stdout);
}
lib/Mojo/Netdata/Collector.pm view on Meta::CPAN
use Mojo::Base 'Mojo::Netdata::Collector', -signatures;
has type => 'ice_cool';
sub register ($self, $config, $netdata) { ... }
sub update_p ($self) { ... }
1;
=head1 DESCRIPTION
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
examples/blog/lib/Blog/Controller/Posts.pm view on Meta::CPAN
my $id = $self->posts->add({title => $v->param('title'), body => $v->param('body')});
$self->redirect_to('show_post', id => $id);
}
sub update ($self) {
my $v = $self->_validation;
return $self->render(action => 'edit', post => {}) if $v->has_error;
my $id = $self->param('id');
$self->posts->save($id, {title => $v->param('title'), body => $v->param('body')});
view release on metacpan or search on metacpan
examples/blog/lib/Blog/Controller/Posts.pm view on Meta::CPAN
my $id = $self->posts->add($validation->output);
$self->redirect_to('show_post', id => $id);
}
sub update {
my $self = shift;
my $validation = $self->_validation;
return $self->render(action => 'edit', post => {}) if $validation->has_error;
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/Mojo/Webqq/Discuss.pm view on Meta::CPAN
sub is_empty{
my $self = shift;
return !(ref($self->member) eq "ARRAY"?0+@{$self->member}:0);
}
sub update_discuss_member {
my $self = shift;
$self->client->update_discuss_member($self,@_);
}
sub update{
my $self = shift;
my $hash = shift;
for(grep {substr($_,0,1) ne "_"} keys %$hash){
if($_ eq "member" and exists $hash->{member} and ref $hash->{member} eq "ARRAY"){
next if not @{$hash->{member}};
view release on metacpan or search on metacpan
lib/Mojo/Weixin/Friend.pm view on Meta::CPAN
sub displayname{
my $self = shift;
return $self->display || $self->markname || $self->name || '昵称未知';
}
sub update{
my $self = shift;
my $hash = shift;
for(grep {substr($_,0,1) ne "_"} keys %$hash){
if(exists $hash->{$_}){
$self->client->emoji_convert(\$hash->{$_},$self->client->emoji_to_text) if $_ eq "name";
view release on metacpan or search on metacpan
lib/Mojo/Zabbix.pm view on Meta::CPAN
sub get {
my ( $self, $object, $params ) = @_;
return $self->http_request( $object, "get", $params );
}
sub update {
my ( $self, $object, $params ) = @_;
return $self->http_request( $object, "update", $params );
}
sub delete {
view release on metacpan or search on metacpan
examples/blog/lib/Blog/Controller/Posts.pm view on Meta::CPAN
my $id = $self->posts->add($validation->output);
$self->redirect_to('show_post', id => $id);
}
sub update {
my $self = shift;
my $validation = $self->_validation;
return $self->render(action => 'edit', post => {}) if $validation->has_error;
view release on metacpan or search on metacpan
lib/MojoMojo/Controller/Admin.pm view on Meta::CPAN
Update user based on user listing.
=cut
sub update_user : Local {
my ( $self, $c, $user ) = @_;
$user = $c->model("DBIC::Person")->find($user) || return;
# if ($action eq 'active') {
$user->active( ($user->active == 1) ? 0 : 1 );
view release on metacpan or search on metacpan
$res = 0 if !defined $res;
$res -= $_ for @params;
return $res;
}
sub update {
my ( $self, $tx, $dispatcher, @params ) = @_;
# notification only
return;
view release on metacpan or search on metacpan
$res = 0 if !defined $res;
$res -= $_ for @params;
return $res;
}
sub update {
my ( $self, @params ) = @_;
# notification only
return;
view release on metacpan or search on metacpan
lib/MojoX/Session/Store/File.pm view on Meta::CPAN
return if -e $file;
return $self->_driver_instance->freeze($file, [$expires, $data]);
}
sub update {
my $self = shift;
my($sid, $expires, $data) = @_;
my $file = $self->_get_file_name($sid);
view release on metacpan or search on metacpan
lib/MojoX/Session/Store/Libmemcached.pm view on Meta::CPAN
}
return $self->_handle->memcached_set($sid, $data, $expires);
}
sub update {
my ($self, $sid, $expires, $data) = @_;
if ($data) {
$data->{___expiration___} = $expires;
$data = encode_base64(nfreeze($data));
view release on metacpan or search on metacpan
lib/MojoX/Session/Store/Memcached.pm view on Meta::CPAN
my $res = $self->{memcached_connector}->set($sid,$new_data);
return $res;
}
sub update {
my ($self, $sid, $expires, $data) = @_;
my $new_data = {
data => $data,
expires => $expires
view release on metacpan or search on metacpan
lib/MojoX/Session/Store/MongoDB.pm view on Meta::CPAN
else {
return 1;
}
}
sub update {
shift->create(@_);
}
sub load {
my ($self, $sid) = @_;
view release on metacpan or search on metacpan
lib/MojoX/Session/Store/Redis.pm view on Meta::CPAN
1;
}
sub update {
shift->create(@_);
}
sub load {
view release on metacpan or search on metacpan
lib/MojoX/Session/Store.pm view on Meta::CPAN
__PACKAGE__->attr(is_async => 0);
__PACKAGE__->attr('error');
sub create { Carp::croak('Method "create" not implemented by subbclass') }
sub update { Carp::croak('Method "update" not implemented by subbclass') }
sub load { Carp::croak('Method "load" not implemented by subbclass') }
sub delete { Carp::croak('Method "delete" not implemented by subbclass') }
lib/MojoX/Session/Store.pm view on Meta::CPAN
my ($self, $sid, $expires, $data) = @_;
...
return 1;
}
sub update {
my ($self, $sid, $expires, $data) = @_;
...
return 1;
}