From 75300d3fde9ec8f5d4e98fa1ea7bab92dec1d725 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 28 Dec 2014 18:05:28 +0000 Subject: cleanup for sharing --- lib/Net/Hawk/Role/WithCrypto.pm | 24 ------------------------ lib/Net/Hawk/Role/WithUtils.pm | 24 ------------------------ lib/Net/Hawk/Types.pm | 20 -------------------- 3 files changed, 68 deletions(-) delete mode 100644 lib/Net/Hawk/Role/WithCrypto.pm delete mode 100644 lib/Net/Hawk/Role/WithUtils.pm delete mode 100644 lib/Net/Hawk/Types.pm (limited to 'lib') diff --git a/lib/Net/Hawk/Role/WithCrypto.pm b/lib/Net/Hawk/Role/WithCrypto.pm deleted file mode 100644 index d8d95e9..0000000 --- a/lib/Net/Hawk/Role/WithCrypto.pm +++ /dev/null @@ -1,24 +0,0 @@ -package Net::Hawk::Role::WithCrypto; -use strict; -use warnings; -use 5.010; -use Package::Variant - importing => ['Moo::Role'], - subs => ['has']; -use Types::Standard 1.000003 qw(HasMethods); - -sub make_variant { - my ($class,$target_package,@methods) = @_; - - has _crypto => ( - is => 'ro', - (@methods ? ( isa => HasMethods[@methods] ) : () ), - init_arg => 'crypto', - default => sub { - require Net::Hawk::Crypto; - Net::Hawk::Crypto->new; - }, - ); -} - -1; diff --git a/lib/Net/Hawk/Role/WithUtils.pm b/lib/Net/Hawk/Role/WithUtils.pm deleted file mode 100644 index bd3a95d..0000000 --- a/lib/Net/Hawk/Role/WithUtils.pm +++ /dev/null @@ -1,24 +0,0 @@ -package Net::Hawk::Role::WithUtils; -use strict; -use warnings; -use 5.010; -use Package::Variant - importing => ['Moo::Role'], - subs => ['has']; -use Types::Standard 1.000003 qw(HasMethods); - -sub make_variant { - my ($class,$target_package,@methods) = @_; - - has _utils => ( - is => 'ro', - (@methods ? ( isa => HasMethods[@methods] ) : () ), - init_arg => 'utils', - default => sub { - require Net::Hawk::Utils; - Net::Hawk::Utils->new; - }, - ); -} - -1; diff --git a/lib/Net/Hawk/Types.pm b/lib/Net/Hawk/Types.pm deleted file mode 100644 index 8879bb3..0000000 --- a/lib/Net/Hawk/Types.pm +++ /dev/null @@ -1,20 +0,0 @@ -package Net::Hawk::Types; -use strict; -use warnings; -use 5.010; -use Type::Library - -base, - -declare => qw(Algorithm HTTPHeaders); -use Type::Utils -all; -use Types::Standard qw(Str Enum HashRef ArrayRef); - -declare Algorithm, as Enum[qw(sha1 sha256)]; - -class_type HTTPHeaders, { class => 'HTTP::Headers' }; -coerce HTTPHeaders, - from HashRef, via { require HTTP::Headers; HTTP::Headers->new(%$_) }, - from ArrayRef, via { require HTTP::Headers; HTTP::Headers->new(@$_) }, - ; - -1; - -- cgit v1.2.3