lib/OXx/Encoding/Role/Response.pm


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

package OXx::Encoding::Role::Response;
use MooseX::Role::Parameterized;
use namespace::autoclean;

use OXx::Encoding::Types;

parameter encoding => (
    isa      => 'Encoding',
    required => 1,
);

parameter html_encoding => (
    isa     => 'Str',
    lazy    => 1,
    default => sub { shift->encoding },
);

role {
    my $p = shift;

    # XXX: set the html encoding here... (need to support this in ox first)
}

1;