diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-03-26 12:40:12 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-03-26 12:40:12 +0000 |
| commit | b398c46825dc73ac92677893dd2a714cd21f8a4d (patch) | |
| tree | 6842b365f072b6fd761e5044be1093791584d6bb /lib/DeWeave/EDO.pm | |
| parent | crypto works! (diff) | |
| download | DeWeave-b398c46825dc73ac92677893dd2a714cd21f8a4d.tar.gz DeWeave-b398c46825dc73ac92677893dd2a714cd21f8a4d.tar.bz2 DeWeave-b398c46825dc73ac92677893dd2a714cd21f8a4d.zip | |
collections working, subclasses, strings
Diffstat (limited to 'lib/DeWeave/EDO.pm')
| -rw-r--r-- | lib/DeWeave/EDO.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/DeWeave/EDO.pm b/lib/DeWeave/EDO.pm index f7a605f..3c32c84 100644 --- a/lib/DeWeave/EDO.pm +++ b/lib/DeWeave/EDO.pm @@ -4,23 +4,25 @@ use namespace::autoclean; use MooseX::Types::Moose qw(Int Str Num); use JSON::Any; use Try::Tiny; -use Data::Dump 'pp'; extends 'DeWeave::WBO'; has ciphertext => ( + traits => ['WBOInternal'], isa => Str, required => 1, is => 'ro', ); has IV => ( + traits => ['WBOInternal'], isa => Str, required => 1, is => 'ro', ); has hmac => ( + traits => ['WBOInternal'], isa => Str, required => 1, is => 'ro', @@ -43,6 +45,7 @@ around BUILDARGS => sub { @$args{keys %$extra_args} = values %$extra_args; } + return $args; }; |