File Coverage

blib/lib/Net/Gnats/Command/CHDB.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	6	8	75.0
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	39	43	90.7

package Net::Gnats::Command::CHDB;
use parent 'Net::Gnats::Command';
use strictures;
BEGIN {
  $Net::Gnats::Command::CHDB::VERSION = '0.20';
}
use vars qw($VERSION);

use Net::Gnats::Constants qw(CODE_OK CODE_NO_ACCESS CODE_INVALID_DATABASE);

=head1 NAME

Net::Gnats::Command::CHDB

=head1 DESCRIPTION

Switches the current database to the name specified in the command.

=head1 PROTOCOL

 CHDB [database]

=head1 RESPONSES

The possible responses are:

422 (CODE_NO_ACCESS)

The user does not have permission to access the requested database.

417 (CODE_INVALID_DATABASE)

The database specified does not exist, or one or more configuration
errors in the database were encountered.

210 (CODE_OK)

The current database is now database. Any operations performed will
now be applied to database.

=cut

my $c = 'CHDB';

sub new {
  my ( $class, %options ) = @_;
  my $self = bless \%options, $class;
  return $self;
}

sub as_string {
  my ($self) = @_;
  return undef if not defined $self->{database};
  return $c . ' ' . $self->{database};
}

sub is_ok {
  my ($self) = @_;
  # command not issued yet
  return 0 if not defined $self->response;

  # command received malformed response
  return 0 if not defined $self->response->code;
  return 1 if $self->response->code == CODE_OK;
  return 0;
}

1;