File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	3	66.6
total	39	40	97.5

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

use Net::Gnats::Constants qw(CODE_OK CODE_PR_NOT_LOCKED);

=head1 NAME

Net::Gnats::Command::UNLK

=head1 DESCRIPTION


Unlocks PR. Any user may unlock a PR, as no checking is done to
determine if the requesting session owns the lock.

=head1 PROTOCOL

 UNLK

=head1 RESPONSES


The possible responses are:

440 (CODE_CMD_ERROR)

Insufficient or too many arguments were specified to the command.

210 (CODE_OK)

The PR was successfully unlocked.

433 (CODE_PR_NOT_LOCKED)

The PR was not locked.

6xx (internal error)

The PR could not be unlocked, usually because of permission or other
filesystem-related problems.

=cut

my $c = 'UNLK';

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

sub as_string {
  my $self = shift;
  return undef if not defined $self->{pr_number};
  return $c . ' ' . $self->{pr_number};
}

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

1;