summaryrefslogtreecommitdiff
path: root/lib/WebService/TFL/Bus/Response/BaseVersion.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WebService/TFL/Bus/Response/BaseVersion.pm')
-rw-r--r--lib/WebService/TFL/Bus/Response/BaseVersion.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/WebService/TFL/Bus/Response/BaseVersion.pm b/lib/WebService/TFL/Bus/Response/BaseVersion.pm
new file mode 100644
index 0000000..37b2ddb
--- /dev/null
+++ b/lib/WebService/TFL/Bus/Response/BaseVersion.pm
@@ -0,0 +1,15 @@
+package WebService::TFL::Bus::Response::BaseVersion;
+use Moose;
+use namespace::autoclean;
+
+has Version => (
+ is => 'ro',
+);
+
+sub new_from_array {
+ my ($class,$return_set,$array) = @_;
+
+ return $class->new({Version => $array->[1]});
+}
+
+1;