lib/Net/HTTP/Console/Role/Headers.pm


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

package Net::HTTP::Console::Role::Headers;

use MooseX::Declare;

role Net::HTTP::Console::Role::Headers {
    
    has custom_headers => (
        traits  => ['Hash'],
        is      => 'ro',
        isa     => 'HashRef[Str]',
        default => sub { {} },
        handles => {
            set_header     => 'set',
            get_header     => 'get',
            has_no_headers => 'is_empty',
            delete_header  => 'delete',
            all_headers    => 'kv',
        },
    );
}

1;