lib/Net/Hawk/Errors.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package Net::Hawk::Errors {
    use v6;
    class base is Exception {
        has $.text;
        sub message { return "{.text}" }
    }
 
    class BadRequest is base {
        has $.value;
 
        sub message {
            return "{ .text } ({ .value // '<undef>' })";
        }
    }
 
    class UnAuthorized is base {}
}