lib/Net/Hawk/Errors.pm


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

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