diff options
Diffstat (limited to 'lib/DeWeave/EDO.pm')
-rw-r--r-- | lib/DeWeave/EDO.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/DeWeave/EDO.pm b/lib/DeWeave/EDO.pm index 30fdbf2..f7a605f 100644 --- a/lib/DeWeave/EDO.pm +++ b/lib/DeWeave/EDO.pm @@ -4,10 +4,11 @@ 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 cyhpertext => ( +has ciphertext => ( isa => Str, required => 1, is => 'ro', @@ -31,17 +32,16 @@ around BUILDARGS => sub { my $args = $class->$orig(@_); return $args unless defined $args->{__crypt}; + return $args unless exists $args->{ciphertext}; my $decrypted_payload = $args->{__crypt}->decrypt($args); if (defined $decrypted_payload) { - try { - my $j = JSON::Any->new; - my $extra_args = $j->decode($decrypted_payload); + my $j = JSON::Any->new; + my $extra_args = $j->decode($decrypted_payload); - @$args{keys %$extra_args} = - values %$extra_args; - }; + @$args{keys %$extra_args} = + values %$extra_args; } return $args; }; |