File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	34	36	94.4

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

use Net::Gnats::Constants qw(CODE_OK CODE_GNATS_NOT_LOCKED CODE_CMD_ERROR);

=head1 NAME

Net::Gnats::Command::UNDB

=head1 DESCRIPTION

Unlocks the database. Any session may steal a database lock; no
checking of any sort is done.

=head1 PROTOCOL

 UNDB

=head1 RESPONSES

The possible responses are:

200 (CODE_OK) The lock has been removed.

432 (CODE_GNATS_NOT_LOCKED) The database was not locked.

440 (CODE_CMD_ERROR) One or more arguments were supplied to the
command.

6xx (internal error) The database lock could not be removed, usually
because of permissions or other filesystem-related issues.

=cut

my $c = 'UNDB';

sub new {
  my ( $class ) = @_;

  my $self = bless {}, $class;
  return $self;
}

sub as_string {
  return $c;
}

sub is_ok {
  my $self = shift;
  return 0 if not defined $self->response;
  return 1 if $self->response->code == CODE_OK;
  return 0;
}

1;