File Coverage

blib/lib/Net/Gnats/Command/FDSC.pm
Criterion Covered Total %
statement 33 35 94.2
branch 14 18 77.7
condition 2 3 66.6
subroutine 8 8 100.0
pod 2 3 66.6
total 59 67 88.0


line stmt bran cond sub pod time code
1             package Net::Gnats::Command::FDSC;
2 40     40   180 use parent 'Net::Gnats::Command';
  40         62  
  40         197  
3 40     40   2448 use strictures;
  40         66  
  40         188  
4             BEGIN {
5 40     40   3256 $Net::Gnats::Command::FDSC::VERSION = '0.21';
6             }
7 40     40   211 use vars qw($VERSION);
  40         61  
  40         1744  
8              
9 40     40   220 use Net::Gnats::Constants qw(CODE_INFORMATION CODE_INVALID_FIELD_NAME);
  40         60  
  40         13430  
10              
11             =head1 NAME
12              
13             Net::Gnats::Command::FDSC
14              
15             =head1 DESCRIPTION
16              
17             Returns a human-readable description of the listed field(s). The possible responses are:
18              
19             Like the FVLD command, the standard continuation protocol will be
20             used if multiple fields were specified with the command.
21              
22             =head1 PROTOCOL
23              
24             FDSC [fields...]
25              
26             =head1 RESPONSES
27              
28             350 (CODE_INFORMATION)
29              
30             The normal response; the supplied text is the field description.
31              
32             410 (CODE_INVALID_FIELD_NAME)
33              
34             The specified field does not exist.
35              
36             =cut
37              
38             my $c = 'FDSC';
39              
40             sub new {
41 41     41 1 157 my ( $class, %options ) = @_;
42 41         162 my $self = bless \%options, $class;
43 41         329 $self->{requests_multi} = 0;
44 41 100       191 return $self if not defined $self->{fields};
45 40 50       209 if (ref $self->{fields} eq 'ARRAY') {
46 40 100       85 $self->{requests_multi} = 1 if scalar @{ $self->{fields} } > 1;
  40         237  
47             }
48             else {
49 0         0 $self->{fields} = [ $self->{fields} ];
50             }
51 40         233 return $self;
52             }
53              
54             sub as_string {
55 88     88 1 136 my ($self) = @_;
56 88 100       293 return undef if not defined $self->{fields};
57 86 50       305 return undef if ref $self->{fields} ne 'ARRAY';
58 86 50       112 return undef if scalar @{ $self->{fields} } == 0;
  86         392  
59 86         192 return $c . ' ' . join ( ' ', @{$self->{fields}} );
  86         662  
60             }
61              
62             # this command can take multiple fields, each getting their own response.
63             # so, we check that 'everything' is okay by looking at the parent response.
64             sub is_ok {
65 3     3 0 5 my $self = shift;
66 3 100       10 return 0 if not defined $self->response;
67 2 100 66     11 if ( $self->{requests_multi} == 0 and
68             $self->response->code == CODE_INFORMATION) {
69 1         4 return 1;
70             }
71 1 50       3 return 1 if $self->response->code == CODE_INFORMATION;
72 0           return 0;
73             }
74              
75             1;