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

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

use Moose::Role;

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;