From 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a Mon Sep 17 00:00:00 2001 From: franck cuny Date: Tue, 8 Jun 2010 15:22:36 +0200 Subject: switch to MX::Declare; rename some roles and dispatcher --- lib/Net/HTTP/Console/Role/Headers.pm | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) (limited to 'lib/Net/HTTP/Console/Role/Headers.pm') diff --git a/lib/Net/HTTP/Console/Role/Headers.pm b/lib/Net/HTTP/Console/Role/Headers.pm index d694d85..4d79a3b 100644 --- a/lib/Net/HTTP/Console/Role/Headers.pm +++ b/lib/Net/HTTP/Console/Role/Headers.pm @@ -1,19 +1,22 @@ package Net::HTTP::Console::Role::Headers; -use Moose::Role; +use MooseX::Declare; -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', - }, -); +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; -- cgit v1.2.3