diff options
Diffstat (limited to 'Bugzilla/WebService/JSON/Box.pm')
-rw-r--r-- | Bugzilla/WebService/JSON/Box.pm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/Bugzilla/WebService/JSON/Box.pm b/Bugzilla/WebService/JSON/Box.pm deleted file mode 100644 index fc39aeee8..000000000 --- a/Bugzilla/WebService/JSON/Box.pm +++ /dev/null @@ -1,43 +0,0 @@ -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This Source Code Form is "Incompatible With Secondary Licenses", as -# defined by the Mozilla Public License, v. 2.0. - -package Bugzilla::WebService::JSON::Box; -use 5.10.1; -use Moo; - -use overload '${}' => 'value', '""' => 'to_string', fallback => 1; - -has 'value' => (is => 'ro', required => 1); -has 'json' => (is => 'ro', required => 1); -has 'label' => (is => 'lazy'); -has 'encode' => (init_arg => undef, is => 'lazy', predicate => 'is_encoded'); - -sub TO_JSON { - my ($self) = @_; - - return $self->to_string; -} - -sub to_string { - my ($self) = @_; - - return $self->is_encoded ? $self->encode : $self->label; -} - -sub _build_encode { - my ($self) = @_; - - return $self->json->_encode($self->value); -} - -sub _build_label { - my ($self) = @_; - - return "" . $self->value; -} - -1; |