diff options
Diffstat (limited to 'perllib/Open311/Endpoint/Result.pm')
-rw-r--r-- | perllib/Open311/Endpoint/Result.pm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/perllib/Open311/Endpoint/Result.pm b/perllib/Open311/Endpoint/Result.pm deleted file mode 100644 index 61454e749..000000000 --- a/perllib/Open311/Endpoint/Result.pm +++ /dev/null @@ -1,38 +0,0 @@ -package Open311::Endpoint::Result; -use Moo; - -has status => ( - is => 'ro', -); -has data => ( - is => 'ro', -); - -sub success { - my ($class, $data) = @_; - return $class->new({ - status => 200, - data => $data, - }); -} - -sub error { - my ($class, $code, @errors) = @_; - $code ||= 400; - return $class->new({ - status => $code, - data => { - errors => [ - map { - ref $_ eq 'HASH' ? $_ : - { - code => $code, - description => "$_", - } - } @errors, - ], - }, - }); -} - -1; |