diff options
Diffstat (limited to 'lib/WebService/TFL/TubeStatus')
-rw-r--r-- | lib/WebService/TFL/TubeStatus/Response/LineStatus.pm | 3 |
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); } |