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);
}

 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

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

t/basic.t  view on Meta::CPAN

    $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

t/basic.t  view on Meta::CPAN

    $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') }

 view release on metacpan or  search on metacpan

lib/Mojolicious/Command/generate/bootstrap_app.pm  view on Meta::CPAN

        $self->flash( class => 'alert alert-danger', message => 'No user given.' );
        $self->redirect_to($self->req->headers->referrer);
    }
}

sub update {
    my $self = shift;

    my $record = {};

    if ($self->_validate_form){

 view release on metacpan or  search on metacpan

t/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, '<', $filename
            or die "Couldn't read '$filename': $!";

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/ContextAuth/DB.pm  view on Meta::CPAN

    }

    return $result;
}

sub update ($self, $object, $id, %params) {
    $self->error('');

    my $class = 'Mojolicious::Plugin::ContextAuth::DB::' . camelize( lc $object );
    my $obj   = $class->new( dbh => $self->dbh );

 view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/Data/Transfigure.pm  view on Meta::CPAN

  sub get_book($self) {
    my $book = $self->model("Book")->find($self->param('id'));
    $self->render(json => $book);
  }

  sub update_book($self) {
    my $book = $self->model("Book")->find($self->param('id'));
    my $data = $self->transfig->json;

    $book->author->update(delete($data->{author}));
    $book->update($data);