Commit 76fb3b81 authored by Leo Gordon's avatar Leo Gordon
Browse files

cosmetic: shorten the class name when performing toString()

parent 980fcb4e
......@@ -229,7 +229,7 @@ sub dataflow_rules_collection {
sub toString {
my $self = shift @_;
return (ref($self).': '.join(', ', map { $_.'="'.$self->$_().'"' } qw(dbID logic_name module parameters) ));
return ('Analysis: '.join(', ', map { $_.'="'.$self->$_().'"' } qw(dbID logic_name module parameters) ));
}
1;
......
......@@ -55,7 +55,7 @@ sub name {
sub toString {
my $self = shift @_;
return (ref($self).': '.join(', ', map { $_.'="'.$self->$_().'"' } qw(dbID name) ));
return ('ResourceClass: '.join(', ', map { $_.'="'.$self->$_().'"' } qw(dbID name) ));
}
1;
......
......@@ -84,7 +84,7 @@ sub worker_cmd_args {
sub toString {
my $self = shift @_;
return (ref($self).': '.join(', ', map { $_.'="'.$self->$_().'"' } qw(resource_class_id meadow_type submission_cmd_args worker_cmd_args) ));
return ('ResourceDescription: '.join(', ', map { $_.'="'.$self->$_().'"' } qw(resource_class_id meadow_type submission_cmd_args worker_cmd_args) ));
}
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