diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-03-25 21:43:42 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-03-25 21:43:42 +0000 |
| commit | 75aa29074f273164a8029d2fd8c963f8de5aea49 (patch) | |
| tree | 7dca22b15aa45172a36c3bf83035bb610e9ff109 /lib/DeWeave/WBO.pm | |
| parent | broken first stab (diff) | |
| download | DeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.tar.gz DeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.tar.bz2 DeWeave-75aa29074f273164a8029d2fd8c963f8de5aea49.zip | |
it might even complie
Diffstat (limited to 'lib/DeWeave/WBO.pm')
| -rw-r--r-- | lib/DeWeave/WBO.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/DeWeave/WBO.pm b/lib/DeWeave/WBO.pm index db89581..3f551dd 100644 --- a/lib/DeWeave/WBO.pm +++ b/lib/DeWeave/WBO.pm @@ -36,7 +36,7 @@ has ttl => ( ); sub from_json { - my ($class,$json)=@_; + my ($class,$json,$crypt)=@_; my $j = JSON::Any->new; @@ -47,6 +47,7 @@ sub from_json { @$args{keys %$extra_args} = values %$extra_args; + $args->{__crypt}=$crypt; }; } |