view release on metacpan or  search on metacpan

lib/Convos/Core.pm  view on Meta::CPAN

195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
    name => $str,
    nick => $str,
    server => $str, # irc_server[:port]
  }, $callback);
 
Update a connection's settings. This might issue a reconnect or issue
IRC commands to reflect the changes.
 
=cut
 
sub update_connection {
  my ($self, $input, $cb) = @_;
  my $validation = $self->_validation($input, qw( login name nick password server username ));
 
  if ($validation->has_error) {
    $self->$cb($validation, undef);
    return $self;
  }
 
  my ($login, $name) = $validation->param([qw( login name )]);
  my $conn  = Convos::Core::Connection->new(%{$validation->output});