diff --git a/lib/Git/IssueManager/Issue.pm b/lib/Git/IssueManager/Issue.pm index 4384042..c44c81c 100644 --- a/lib/Git/IssueManager/Issue.pm +++ b/lib/Git/IssueManager/Issue.pm @@ -50,7 +50,7 @@ The default value is B. has 'priority' => (is => 'rw', isa => 'Str', default => 'low', trigger => sub { my ($self, $new, $old) = @_; - die("unknown value (" . $new . ")") unless lc($new) eq "urgent" || lc($new) eq "high" || + die("unknown value in priority (" . $new . ")") unless lc($new) eq "urgent" || lc($new) eq "high" || lc($new) eq "medium" || lc($new) eq "low"; }); @@ -76,7 +76,7 @@ The default value is B has 'severity' => (is => 'rw', isa => 'Str', default => 'low',trigger => sub { my ($self, $new, $old) = @_; - die("unknown value (" . $new . ")") unless lc($new) eq "critical" || lc($new) eq "high" || + die("unknown value in severity (" . $new . ")") unless lc($new) eq "critical" || lc($new) eq "high" || lc($new) eq "medium" || lc($new) eq "low"; }); @@ -106,7 +106,7 @@ The default values is B. has 'type' => (is => 'rw', isa => 'Str', default => 'bug', trigger => sub { my ($self, $new, $old) = @_; - die("unknown value (" . $new . ")") unless lc($new) eq "bug" || lc($new) eq "security-bug" || + die("unknown value in type (" . $new . ")") unless lc($new) eq "bug" || lc($new) eq "security-bug" || lc($new) eq "improvement" || lc($new) eq "feature" || lc($new) eq "task" || lc($$new) eq "epic"; }); @@ -133,7 +133,7 @@ The default value is B. has 'status' => (is => 'rw', isa => 'Str', default => 'open', trigger => sub { my ($self, $new, $old) = @_; - die("unknown value (" . $new . ")") unless lc($new) eq "open" || lc($new) eq "assigned" || + die("unknown value in status (" . $new . ")") unless lc($new) eq "open" || lc($new) eq "assigned" || lc($new) eq "inprogress" || lc($new) eq "closed"; }); @@ -157,7 +157,7 @@ The default value is B. has 'substatus' => (is => 'rw', isa => 'Str', default => 'none', trigger => sub { my ($self, $new, $old) = @_; - die("unknown value (" . $new . ")") unless lc($new) eq "none" || lc($new) eq "fixed" || + die("unknown value in substatus (" . $new . ")") unless lc($new) eq "none" || lc($new) eq "fixed" || lc($new) eq "wontfix"; });