show more than 1 bus stop

1 files changed, 19 insertions, 1 deletions

diff --git a/lib/WebService/TFL/Bus/Response.pm b/lib/WebService/TFL/Bus/Response.pm
index 0f811fc..59582be 100644
--- a/lib/WebService/TFL/Bus/Response.pm
+++ b/lib/WebService/TFL/Bus/Response.pm
@@ -9,12 +9,20 @@ has predictions => (
     isa => ArrayRef[InstanceOf['WebService::TFL::Bus::Prediction']],
 );
 
+sub _sort {
+    return sort {
+        $a->destinationName cmp $b->destinationName
+            ||
+            $a->expectedArrival <=> $b->expectedArrival
+            } @_;
+}
+
 sub new_from_response {
     my ($class,$response_data) = @_;
 
     return $class->new({
         predictions => [
-            sort { $a->expectedArrival <=> $b->expectedArrival }
+            _sort
             map { WebService::TFL::Bus::Prediction->new_from_response($_) }
             grep { $_->{'$type'} =~ /\bPrediction\b/ }
             $response_data->@*
@@ -22,4 +30,14 @@ sub new_from_response {
     });
 }
 
+sub new_merged {
+    my ($class, @responses) = @_;
+
+    return $class->new({
+        predictions => [
+            _sort map { $_->predictions->@* } @responses
+        ],
+    });
+}
+
 1;