summaryrefslogtreecommitdiffstats
path: root/extensions/Review/lib/FlagStateActivity.pm
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/Review/lib/FlagStateActivity.pm')
-rw-r--r--extensions/Review/lib/FlagStateActivity.pm110
1 files changed, 53 insertions, 57 deletions
diff --git a/extensions/Review/lib/FlagStateActivity.pm b/extensions/Review/lib/FlagStateActivity.pm
index 35da42351..92efb6c02 100644
--- a/extensions/Review/lib/FlagStateActivity.pm
+++ b/extensions/Review/lib/FlagStateActivity.pm
@@ -24,65 +24,58 @@ use constant AUDIT_UPDATES => 0;
use constant AUDIT_REMOVES => 0;
use constant DB_COLUMNS => qw(
- id
- flag_when
- type_id
- flag_id
- setter_id
- requestee_id
- bug_id
- attachment_id
- status
+ id
+ flag_when
+ type_id
+ flag_id
+ setter_id
+ requestee_id
+ bug_id
+ attachment_id
+ status
);
sub _check_param_required {
- my ($param) = @_;
-
- return sub {
- my ($invocant, $value) = @_;
- $value = trim($value)
- or ThrowCodeError('param_required', {param => $param});
- return $value;
- },
+ my ($param) = @_;
+
+ return sub {
+ my ($invocant, $value) = @_;
+ $value = trim($value) or ThrowCodeError('param_required', {param => $param});
+ return $value;
+ },;
}
sub _check_date {
- my ($invocant, $date) = @_;
+ my ($invocant, $date) = @_;
- $date = trim($date);
- datetime_from($date)
- or ThrowUserError('illegal_date', { date => $date,
- format => 'YYYY-MM-DD HH24:MI:SS' });
- return $date;
+ $date = trim($date);
+ datetime_from($date)
+ or ThrowUserError('illegal_date',
+ {date => $date, format => 'YYYY-MM-DD HH24:MI:SS'});
+ return $date;
}
sub _check_status {
- my ($self, $status) = @_;
-
- # - Make sure the status is valid.
- # - Make sure the user didn't request the flag unless it's requestable.
- # If the flag existed and was requested before it became unrequestable,
- # leave it as is.
- if (none { $status eq $_ } qw( X + - ? )) {
- ThrowUserError(
- 'flag_status_invalid',
- {
- id => $self->id,
- status => $status
- }
- );
- }
- return $status;
+ my ($self, $status) = @_;
+
+ # - Make sure the status is valid.
+ # - Make sure the user didn't request the flag unless it's requestable.
+ # If the flag existed and was requested before it became unrequestable,
+ # leave it as is.
+ if (none { $status eq $_ } qw( X + - ? )) {
+ ThrowUserError('flag_status_invalid', {id => $self->id, status => $status});
+ }
+ return $status;
}
use constant VALIDATORS => {
- flag_when => \&_check_date,
- type_id => _check_param_required('type_id'),
- flag_id => _check_param_required('flag_id'),
- setter_id => _check_param_required('setter_id'),
- bug_id => _check_param_required('bug_id'),
- status => \&_check_status,
+ flag_when => \&_check_date,
+ type_id => _check_param_required('type_id'),
+ flag_id => _check_param_required('flag_id'),
+ setter_id => _check_param_required('setter_id'),
+ bug_id => _check_param_required('bug_id'),
+ status => \&_check_status,
};
sub flag_when { return $_[0]->{flag_when} }
@@ -95,30 +88,33 @@ sub attachment_id { return $_[0]->{attachment_id} }
sub status { return $_[0]->{status} }
sub type {
- my ($self) = @_;
- return $self->{type} //= Bugzilla::FlagType->new({ id => $self->type_id, cache => 1 });
+ my ($self) = @_;
+ return $self->{type}
+ //= Bugzilla::FlagType->new({id => $self->type_id, cache => 1});
}
sub setter {
- my ($self) = @_;
- return $self->{setter} //= Bugzilla::User->new({ id => $self->setter_id, cache => 1 });
+ my ($self) = @_;
+ return $self->{setter}
+ //= Bugzilla::User->new({id => $self->setter_id, cache => 1});
}
sub requestee {
- my ($self) = @_;
- return undef unless defined $self->requestee_id;
- return $self->{requestee} //= Bugzilla::User->new({ id => $self->requestee_id, cache => 1 });
+ my ($self) = @_;
+ return undef unless defined $self->requestee_id;
+ return $self->{requestee}
+ //= Bugzilla::User->new({id => $self->requestee_id, cache => 1});
}
sub bug {
- my ($self) = @_;
- return $self->{bug} //= Bugzilla::Bug->new({ id => $self->bug_id, cache => 1 });
+ my ($self) = @_;
+ return $self->{bug} //= Bugzilla::Bug->new({id => $self->bug_id, cache => 1});
}
sub attachment {
- my ($self) = @_;
- return $self->{attachment} //=
- Bugzilla::Attachment->new({ id => $self->attachment_id, cache => 1 });
+ my ($self) = @_;
+ return $self->{attachment}
+ //= Bugzilla::Attachment->new({id => $self->attachment_id, cache => 1});
}
1;