Commit 1774e945 authored by Carla Cummins's avatar Carla Cummins Committed by ens-bwalts
Browse files

Updated licence definition

parent a058112c
=head1 LICENSE #!/usr/bin/env perl
Copyright [1999-2015] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute # Copyright [1999-2015] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute
Copyright [2016-2018] EMBL-European Bioinformatics Institute # Copyright [2016-2019] EMBL-European Bioinformatics Institute
#
Licensed under the Apache License, Version 2.0 (the "License"); # Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License. # you may not use this file except in compliance with the License.
You may obtain a copy of the License at # You may obtain a copy of the License at
#
http://www.apache.org/licenses/LICENSE-2.0 # http://www.apache.org/licenses/LICENSE-2.0
#
Unless required by applicable law or agreed to in writing, software # Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS, # distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and # See the License for the specific language governing permissions and
limitations under the License. # limitations under the License.
=cut
package Bio::EnsEMBL::Hive::Scripts::PeekJob; package Bio::EnsEMBL::Hive::Scripts::PeekJob;
...@@ -39,13 +36,6 @@ sub peek { ...@@ -39,13 +36,6 @@ sub peek {
my $unsub_params = $job->{'_unsubstituted_param_hash'}; my $unsub_params = $job->{'_unsubstituted_param_hash'};
print Data::Dumper->Dump( [ $unsub_params ], [ qw(*unsubstituted_param_hash) ] ); print Data::Dumper->Dump( [ $unsub_params ], [ qw(*unsubstituted_param_hash) ] );
# my @ordered_params = sort { lc($a) cmp lc($b) } keys %$unsub_params;
# print "{\n";
# foreach my $param ( @ordered_params ) {
# print "\t'$param' => '" . $unsub_params->{$param} . "',\n";
# }
# print "}\n";
} }
1; 1;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment