From e1872c5028937753e0ecbebcded8a312d5eb7ce4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 25 Mar 2011 23:54:14 +0000
Subject: very broken, can't decrypt

---
 lib/DeWeave/EDO.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'lib/DeWeave/EDO.pm')

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;
 };
-- 
cgit v1.2.3