| 562 |
$self->_sock_send_ok( 'SAVE' ); |
$self->_sock_send_ok( 'SAVE' ); |
| 563 |
} |
} |
| 564 |
|
|
| 565 |
|
=head2 bgsave |
| 566 |
|
|
| 567 |
|
$r->bgsave; |
| 568 |
|
|
| 569 |
|
=cut |
| 570 |
|
|
| 571 |
|
sub bgsave { |
| 572 |
|
my $self = shift; |
| 573 |
|
$self->_sock_send_ok( 'BGSAVE' ); |
| 574 |
|
} |
| 575 |
|
|
| 576 |
|
=head2 lastsave |
| 577 |
|
|
| 578 |
|
$r->lastsave; |
| 579 |
|
|
| 580 |
|
=cut |
| 581 |
|
|
| 582 |
|
sub lastsave { |
| 583 |
|
my $self = shift; |
| 584 |
|
$self->_sock_send( 'LASTSAVE' ); |
| 585 |
|
} |
| 586 |
|
|
| 587 |
|
=head2 shutdown |
| 588 |
|
|
| 589 |
|
$r->shutdown; |
| 590 |
|
|
| 591 |
|
=cut |
| 592 |
|
|
| 593 |
|
sub shutdown { |
| 594 |
|
my $self = shift; |
| 595 |
|
$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> >> |
Parent Directory
| 
Revision Log
| 
Patch