From 47d24b4cbea6d8364d0718e31cfd2fb92187b7ea Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 27 May 2013 17:01:20 +0100
Subject: factored TFL client

---
 lib/WebService/TFL/Bus/Response/URAVersion.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 lib/WebService/TFL/Bus/Response/URAVersion.pm

(limited to 'lib/WebService/TFL/Bus/Response/URAVersion.pm')

diff --git a/lib/WebService/TFL/Bus/Response/URAVersion.pm b/lib/WebService/TFL/Bus/Response/URAVersion.pm
new file mode 100644
index 0000000..38c8a62
--- /dev/null
+++ b/lib/WebService/TFL/Bus/Response/URAVersion.pm
@@ -0,0 +1,17 @@
+package WebService::TFL::Bus::Response::URAVersion;
+use Moose;
+use namespace::autoclean;
+
+for my $field (qw(Version TimeStamp)) {
+    has $field => (
+        is => 'ro',
+    );
+}
+
+sub new_from_array {
+    my ($class,$return_set,$array) = @_;
+
+    return $class->new({Version => $array->[1],TimeStamp => $array->[2]});
+}
+
+1;
-- 
cgit v1.2.3