diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-03-26 12:05:17 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-03-26 12:05:17 +0000 |
| commit | 57191960bf48c40ac0f7e805740f15927c026682 (patch) | |
| tree | 2dc19340013b76ea4c0a0cd372218a2be5dfcfca /lib/DeWeave/WBO.pm | |
| parent | very broken, can't decrypt (diff) | |
| download | DeWeave-57191960bf48c40ac0f7e805740f15927c026682.tar.gz DeWeave-57191960bf48c40ac0f7e805740f15927c026682.tar.bz2 DeWeave-57191960bf48c40ac0f7e805740f15927c026682.zip | |
crypto works!
Diffstat (limited to 'lib/DeWeave/WBO.pm')
| -rw-r--r-- | lib/DeWeave/WBO.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/DeWeave/WBO.pm b/lib/DeWeave/WBO.pm index bdfb027..8d8a1ba 100644 --- a/lib/DeWeave/WBO.pm +++ b/lib/DeWeave/WBO.pm @@ -4,7 +4,6 @@ use namespace::autoclean; use MooseX::Types::Moose qw(Int Str Num); use JSON::Any; use Try::Tiny; -use Data::Dump 'pp'; has id => ( isa => Str, @@ -42,7 +41,7 @@ sub from_json { my $j = JSON::Any->new; my $args = $j->decode($json); - use Data::Dump 'pp';warn pp $args; + if (defined $args->{payload}) { $args->{__crypt}=$crypt; } |