summaryrefslogtreecommitdiff
path: root/lib/DeWeave/EDO.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DeWeave/EDO.pm')
-rw-r--r--lib/DeWeave/EDO.pm33
1 files changed, 0 insertions, 33 deletions
diff --git a/lib/DeWeave/EDO.pm b/lib/DeWeave/EDO.pm
index 81250d2..55422f7 100644
--- a/lib/DeWeave/EDO.pm
+++ b/lib/DeWeave/EDO.pm
@@ -2,9 +2,6 @@ package DeWeave::EDO;
use Moose;
use namespace::autoclean;
use MooseX::Types::Moose qw(Int Str Num Bool);
-use JSON::Any;
-use Try::Tiny;
-use DeWeave::Exception::Deleted;
extends 'DeWeave::WBO';
@@ -35,34 +32,4 @@ has deleted => (
is => 'ro',
);
-around BUILDARGS => sub {
- my $orig = shift;
- my $class = shift;
-
- 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) {
- my $j = JSON::Any->new;
- my $extra_args = $j->decode($decrypted_payload);
-
- @$args{keys %$extra_args} =
- values %$extra_args;
- }
-
- delete @$args{grep {!defined $args->{$_}} keys %$args};
-
- $class->_debug_data('buildargs: ',$args);
-
- if ($args->{deleted}) {
- delete $args->{__crypt};
- die DeWeave::Exception::Deleted->new({args=>$args});
- }
-
- return $args;
-};
-
1;