MT#6773 Remove any Data::Printer calls

Printing a hash with Data::Printer causes at least the API to not
return the hash, and back-porting libclone-perl to wheezy to fix it
caused the whole panel to get stuck.

lib/NGCP/Panel/Controller/SubscriberProfile.pm

@@ -405,7 +405,6 @@ sub profile_create :Chained('profile_list') :PathPart('create') :Args(0) :Does(A
               
                 # TODO: should we rather take the name and load the id from db,
                 # instead of trusting the id coming from user input?
-                use Data::Printer; p $attributes;
                 foreach my $attr(keys %{ $attributes }) {
                     next unless($attributes->{$attr});
                     $profile->profile_attributes->create({

lib/NGCP/Panel/Role/API/Preferences.pm

@@ -41,7 +41,6 @@ sub hal_from_item {
     );
 
     my $resource = $self->get_resource($c, $item, $type);
-    use Data::Printer; p $resource;
     $hal->resource($resource);
     return $hal;
 }
@@ -246,9 +245,6 @@ sub update_item {
     my $reseller_id;
     my $full_rs;
 
-    print ">>>>>>>>>> before cleanup\n";
-    use Data::Printer; p $resource;
-
     if($type eq "domains") {
         delete $resource->{domain_id};
         delete $resource->{domainpreferences_id};
@@ -283,9 +279,6 @@ sub update_item {
         return;
     }
 
-    print ">>>>>>>>>> after cleanup\n";
-    use Data::Printer; p $resource;
-
     if($replace) {
         # in case of PUT, we remove all old entries
         try {

lib/NGCP/Panel/Utils/Subscriber.pm

@@ -514,9 +514,6 @@ sub update_subscriber_numbers {
 
 
     if(defined $alias_numbers && ref($alias_numbers) eq 'ARRAY') {
-        print ">>>>>>>>>>>>>>>>>>> update alias numbers\n";
-        use Data::Printer; p $alias_numbers;
-
         my $number;
         for my $alias(@$alias_numbers) {
 
@@ -573,8 +570,6 @@ sub update_subscriber_numbers {
 
     push @nums, $billing_subs->primary_number_id
         if($billing_subs->primary_number_id);
-    print ">>>>>>>>>>>>>< updating number list\n";
-    use Data::Printer; p @nums;
     $billing_subs->voip_numbers->search({
         id => { 'not in' => \@nums },
     })->update({
@@ -582,8 +577,6 @@ sub update_subscriber_numbers {
         reseller_id => undef,
     });
     if($prov_subs) {
-        print ">>>>>>>>>>>>>< updating alias number list\n";
-        use Data::Printer; p @nums;
         $prov_subs->voip_dbaliases->search({
             id => { 'not in' => \@dbnums },
         })->delete;