summaryrefslogtreecommitdiff
path: root/lib/WebService/TFL/TubeStatus
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WebService/TFL/TubeStatus')
-rw-r--r--lib/WebService/TFL/TubeStatus/Response/LineStatus.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
index 2e8e22b..69ddf20 100644
--- a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
+++ b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
@@ -17,6 +17,9 @@ has reason => (
sub new_from_response {
my ($class,$response_data) = @_;
+ $response_data->{reason} =~ s{\A .+? : \s*}{}x
+ if $response_data->{reason};
+
return $class->new($response_data);
}