diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-09 17:55:15 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-09 17:55:15 +0000 |
| commit | 9a819c53ea88d482b3a59b4503ff7bf8c5483ee6 (patch) | |
| tree | 04849ff6efe93d21fac163e03eb43238033f2355 | |
| parent | moose traits for tags (diff) | |
| download | data-multivalued-9a819c53ea88d482b3a59b4503ff7bf8c5483ee6.tar.gz data-multivalued-9a819c53ea88d482b3a59b4503ff7bf8c5483ee6.tar.bz2 data-multivalued-9a819c53ea88d482b3a59b4503ff7bf8c5483ee6.zip | |
avoid warns printing some exceptions
| -rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/Exceptions.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm b/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm index 571db0a..8d444c0 100644 --- a/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm +++ b/Data-MultiValued/lib/Data/MultiValued/Exceptions.pm @@ -11,7 +11,7 @@ has value => ( sub as_string { my ($self) = @_; - my $str = $self->message . $self->value; + my $str = $self->message . ($self->value // '<undef>'); $str .= "\n\n" . $self->stack_trace->as_string; return $str; |