595 |
$self->_sock_send( 'SHUTDOWN' ); |
$self->_sock_send( 'SHUTDOWN' ); |
596 |
} |
} |
597 |
|
|
598 |
|
=head1 Remote server control commands |
599 |
|
|
600 |
|
=head2 info |
601 |
|
|
602 |
|
my $info_hash = $r->info; |
603 |
|
|
604 |
|
=cut |
605 |
|
|
606 |
|
sub info { |
607 |
|
my $self = shift; |
608 |
|
my $info = $self->_sock_result_bulk( 'INFO' ); |
609 |
|
my $hash; |
610 |
|
foreach my $l ( split(/\r\n/, $info ) ) { |
611 |
|
my ($n,$v) = split(/:/, $l, 2); |
612 |
|
$hash->{$n} = $v; |
613 |
|
} |
614 |
|
return $hash; |
615 |
|
} |
616 |
|
|
617 |
=head1 AUTHOR |
=head1 AUTHOR |
618 |
|
|
619 |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |