blob: befd14253ce9a543ecc27467503b6e1b9f13731f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
package Net::Hawk::Errors; use strict; use warnings; use 5.010; package Net::Hawk::Errors::base { use Moo; use Types::Standard qw(Str); with 'Throwable'; use overload q{""} => 'as_string', fallback => 1; has message => ( is => 'ro', isa => Str, required => 1, ); sub as_string { $_[0]->message } }; package Net::Hawk::Errors::BadRequest { use Moo; extends 'Net::Hawk::Errors::base'; has value => (is => 'ro'); sub as_string { my ($self) = @_; return sprintf( '%s (%s)', $self->message, $self->value // '<undef>', ); } }; package Net::Hawk::Errors::UnAuthorized { use Moo; extends 'Net::Hawk::Errors::base'; }; 1;
|