File Coverage

blib/lib/Net/Gnats/Command/EXPR.pm
Criterion Covered Total %
statement 26 26 100.0
branch 8 10 80.0
condition n/a
subroutine 8 8 100.0
pod 2 3 66.6
total 44 47 93.6


line stmt bran cond sub pod time code
1             package Net::Gnats::Command::EXPR;
2 40     40   180 use parent 'Net::Gnats::Command';
  40         74  
  40         297  
3 40     40   3436 use strictures;
  40         56  
  40         193  
4             BEGIN {
5 40     40   2923 $Net::Gnats::Command::EXPR::VERSION = '0.20';
6             }
7 40     40   176 use vars qw($VERSION);
  40         54  
  40         1542  
8              
9 40     40   193 use Net::Gnats::Constants qw(CODE_OK CODE_INVALID_EXPR);
  40         64  
  40         9200  
10              
11             =head1 NAME
12              
13             Net::Gnats::Command::EXPR
14              
15             =head1 DESCRIPTION
16              
17              
18             Specifies a query expression used to limit which PRs are returned
19             from the QUER command. The expression uses the normal query
20             expression syntax, (see Query expressions).
21              
22             Multiple EXPR commands may be issued; the expressions are boolean ANDed together.
23              
24             Expressions are cleared by the RSET command.
25              
26             =head1 PROTOCOL
27              
28             EXPR [query expression]
29              
30             =head1 RESPONSES
31              
32              
33             Possible responses include:
34              
35             415 (CODE_INVALID_EXPR) The specified expression is invalid, and could not be parsed.
36              
37             210 (CODE_OK) The expression has been accepted and will be used to limit the results returned from QUER.
38              
39             =cut
40              
41              
42             my $c = 'EXPR';
43              
44             sub new {
45 7     7 1 14 my ( $class, %options ) = @_;
46              
47 7         17 my $self = bless \%options, $class;
48 7         19 return $self;
49             }
50              
51             sub as_string {
52 16     16 1 19 my ($self) = @_;
53 16 100       44 return undef if not defined $self->{expressions};
54 14 50       31 return undef if ref( $self->{expressions} ) ne 'ARRAY';
55 14         17 return $c . ' ' . join( ' & ', @{$self->{expressions}} );
  14         55  
56             }
57              
58             sub is_ok {
59 7     7 0 9 my ($self) = @_;
60 7 100       14 return 0 if not defined $self->response;
61 6 50       13 return 0 if not defined $self->response->code;
62 6 100       13 return 1 if $self->response->code == CODE_OK;
63 1         4 return 0;
64             }
65              
66             1;