summaryrefslogtreecommitdiffstats
path: root/Bugzilla/WebService/JSON/Box.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla/WebService/JSON/Box.pm')
-rw-r--r--Bugzilla/WebService/JSON/Box.pm43
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;