blob: 07edbcb006a27a47e23e061ac0058d3c1b5f497d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
package WebService::TFL::Bus::Response::BaseVersion; use Moo; use namespace::autoclean; has Version => ( is => 'ro', ); sub new_from_array { my ($class,$return_set,$array) = @_; return $class->new({Version => $array->[1]}); } 1;
|