diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-10-03 03:24:34 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-10-03 03:24:34 -0500 |
commit | 8abee86bd5ac48c9885813b3d1a6a56d42062afb (patch) | |
tree | 9396f2881126a59dd976864d3ee2f2bdf0021e8c /lib | |
parent | 2721fc69404c79d034ea9d3c0f4636921c0d68e1 (diff) | |
download | oxx-encoding-8abee86bd5ac48c9885813b3d1a6a56d42062afb.tar.gz oxx-encoding-8abee86bd5ac48c9885813b3d1a6a56d42062afb.zip |
initial implementation
Diffstat (limited to 'lib')
-rw-r--r-- | lib/OXx/Encoding.pm | 40 | ||||
-rw-r--r-- | lib/OXx/Encoding/Role/Request.pm | 55 | ||||
-rw-r--r-- | lib/OXx/Encoding/Role/Response.pm | 24 | ||||
-rw-r--r-- | lib/OXx/Encoding/Types.pm | 10 |
4 files changed, 129 insertions, 0 deletions
diff --git a/lib/OXx/Encoding.pm b/lib/OXx/Encoding.pm index e69de29..729c5a3 100644 --- a/lib/OXx/Encoding.pm +++ b/lib/OXx/Encoding.pm @@ -0,0 +1,40 @@ +package OXx::Encoding; +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; + + around request_class => sub { + my $orig = shift; + my $self = shift; + + my $super = $self->$orig(@_); + + return Moose::Meta::Class->create_anon_class( + superclasses => [$super], + roles => [ + 'OXx::Encoding::Role::Request' => { + encoding => $p->encoding, + html_encoding => $p->html_encoding, + }, + ], + cache => 1, + )->name; + }; +} + +1; diff --git a/lib/OXx/Encoding/Role/Request.pm b/lib/OXx/Encoding/Role/Request.pm new file mode 100644 index 0000000..a41c74b --- /dev/null +++ b/lib/OXx/Encoding/Role/Request.pm @@ -0,0 +1,55 @@ +package OXx::Encoding::Role::Request; +use MooseX::Role::Parameterized; +use namespace::autoclean; + +use Encode (); +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; + + my $encoding = Encode::find_encoding($p->encoding); + + sub decode { + my $self = shift; + my ($data) = @_; + return $encoding->decode($data); + } + + sub encode { + my $self = shift; + my ($data) = @_; + return $encoding->encode($data); + } + + around response_class => sub { + my $orig = shift; + my $self = shift; + + my $super = $self->$orig(@_); + + return Moose::Meta::Class->create_anon_class( + superclasses => [$super], + roles => [ + 'OXx::Encoding::Role::Response' => { + encoding => $p->encoding, + html_encoding => $p->html_encoding, + }, + ], + cache => 1, + )->name; + }; +} + +1; diff --git a/lib/OXx/Encoding/Role/Response.pm b/lib/OXx/Encoding/Role/Response.pm new file mode 100644 index 0000000..71d186b --- /dev/null +++ b/lib/OXx/Encoding/Role/Response.pm @@ -0,0 +1,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; diff --git a/lib/OXx/Encoding/Types.pm b/lib/OXx/Encoding/Types.pm new file mode 100644 index 0000000..691f46e --- /dev/null +++ b/lib/OXx/Encoding/Types.pm @@ -0,0 +1,10 @@ +package OXx::Encoding::Types; +use strict; +use warnings; +use Moose::Util::TypeConstraints; + +use Encode (); + +subtype 'Encoding', as 'Str', where { Encode::find_encoding($_) }; + +1; |